Решить по информатике (на уровне знаний 7 класса) с pascalabc 1. дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз. 2. дано 4 значное число поменять местами 1 и 2 цифру местами 3. дан диаметр круга найти его площадь (формула s=п*r). я примерно знаю как писать но всеровно в мои мысли: program z1; uses crt; var : integer; begin дальше всё в тумане буду рад за решённые 1 или 2

ZEWER ZEWER    2   31.05.2019 05:50    0

Ответы
kiki121 kiki121  01.07.2020 16:42
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.
                   
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика