Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
3 мб
512×2=1024
1024×2=2048
1024+2048=3072
переводим в мб и получим 3 мб
Var a,b,c:integer;BeginWriteln('Введите числа a b c ');Readln (a,b,c);If (a=b) and (b=c) and (c=a) then Write ('Числа равны') else Write ('Числа не равны');End.
Открытие,удаление,перемещение, переименование,редактирование,сохранение