Решить по информатике (на уровне знаний 7 класса) - вопрос №2255132712 от kuznetsovapoli 08.09.2021 04:04

Question

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

kuznetsovapoli · Answer

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.                   ...