Free pascal 1. составить программу для вычисления - вопрос №24511591 от ValeriaBezzubik 21.05.2022 02:35

Question

Информатика: Free pascal 1. составить программу для вычисления площади прямоугольника по его длинам сторон a и b. 2. даны два целых числа x и y. составить программу для нахождения большего из них. 3. составить программу для вывода на экран натуральных чисел от 1 до 10. 4. составить программу для решения : сколько пирожков испечёт хозяйка за неделю, если в первый день она испекла 4 пирожка, а в каждый последующий день – в два раза больше, чем в предыдущий? 5. (*) с клавиатуры вводятся последовательно n натуральных

ValeriaBezzubik · Answer

1) var a, b, s: real;beginread(a, b);s:=a*b;writeln(s);end. 2) var x, y, max: integer;beginread(x, y);if x y then max:=x else max:=y;writeln(max);end. 3) var i:integer;beginfor i:=1 to 10 dowriteln(i);end. 4) var i, n:integer;beginn:=4;for i:=1 to 7 do beginn:=2*n;writeln(n);end. 5) var a, n, max:integer;beginmax:=-MaxInt;read(n);for i:=1 to n do beginread(a);if a max then max:=a;end;writeln(max);end....