Помогите решить задачи по информатике (на уровне знаний 7 класса) с помощю PascalABC

1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.

2. Дано 4 значное число поменять местами 1 и 2 цифру местами

3. Дан диаметр круга найти его площадь (формула S=п*R).

Я примерно знаю как писать но всеровно нуждаюсь в помощи

Мои мысли:

program z1;

uses crt;

var ... : integer;

begin

дальше всё в тумане

буду рад за решённые 1 или 2 задачи

Question

Информатика

Линыч

21 мая, 09:05

Помогите решить задачи по информатике (на уровне знаний 7 класса) с помощю PascalABC

1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.

2. Дано 4 значное число поменять местами 1 и 2 цифру местами

3. Дан диаметр круга найти его площадь (формула S=п*R).

Я примерно знаю как писать но всеровно нуждаюсь в помощи

Мои мысли:

program z1;

uses crt;

var ... : integer;

begin

дальше всё в тумане

буду рад за решённые 1 или 2 задачи

+3

Ответы (1)

Знаете ответ?

Леруся · Answer 1

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.