помогите решить задачи по информатике (на уровне знаний 7 класса) с помощю PascalABC
1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи
Ответы на вопрос
Ответил Seregadss
0
program z1;
uses crt;
Var a, b, max, m, x: integer;
Begin
Write('введите а и б');
read(a,b);
if a>b then max:=a and m:=b
else max:=b and m:=a;
x:=max-m;
writeln('модель суммы=', x);
end.
uses crt;
Var a, b, max, m, x: integer;
Begin
Write('введите а и б');
read(a,b);
if a>b then max:=a and m:=b
else max:=b and m:=a;
x:=max-m;
writeln('модель суммы=', x);
end.
Новые вопросы