Program Test;
5-9 класс
|
var A, B , C: integer;
begin readln (A, B);
C:=(A+B) * (B-A);
writeln (C)
end.
Помогите пожалуйста.Объясните как вы делали
begin {начать}
readln (A, B); {вести А и В}
C:=(A+B) * (B-A); {вычисление}
writeln (C) {вывод С}
end. {конец}
Объяснить как программа работает или что ?
Комментарий удален
Другие вопросы из категории
я написала программу вот эту и выдает ошибку :
ошибка времени выполнения: входная строка имела неверный формат, что это значит и как это исправить помогите пожалуйста очень срочно нужно
m:=a;
if b>m then m:=b;
if c>m then m:=c;
Читайте также
p>
writeln(C)
end.
1) Написать программу с циклом.
Дана переменная "n", написать программу где все значения "n" будут суммироваться пока n не будет равно 1
2) Написать программу с циклом.
Дана переменная e, нужно выводить "e" в квадрат до тех пор пока "e" не будет равно 100
--------------
program test;
var..
begin
Program Test
var A , B, C : integer;
begin
readln (A, B);
C :=(A+B)*(B-A);
writeln (C)
end.
Ошибка где то в присвоение, т.к на выходе все время получаю 0.
Вопрос: В чем же ошибка?
----------------------------------------
Program test;
var a, b, c, d: integer;
begin
writeln ('Enter A');
read (a);
writeln ('Enter B');
read (b);
writeln ('Enter C');
read (c);
if (a<b) and (a<c) then a:=d;
if (b<a) and (b<c) then b:=d;
if (c<a) and (c<b) then c:=d;
writeln ('Complete');
writeln ('Your number is', d);
end.
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(