Дана программа на языке Паскаль: program а3; var х, у, z: real; begin writeln ('Введите три числа'); readln (х, у, z); if (х

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.

Program n_1; Var a, b, x, y: real; Begin Writeln ('Введите a') readln (x); Writeln ('Введите b') readln (b); y:=3*x*x+x-4; While x

Напишите программу на вычитание, деление и умножение (8-9 класс) На примере: program n_1 uses crt var a, b, c: integar; begin writeln ('введите а: '); readln (а); writeln (введите b: '); readln (b); c:=a+b writeln ('сумма = ', c); readkey; end.

Дана программа на языке Паскаль: program а4; var х, kl, k2: integer; begin k1:-0; k2:=0; repeat writeln ('Введите целое число'); readln (x); if x0 then k2:-k2+1; until x=0; writeln (' k1=', k1, ",' k2=', k2) end.

1. Хозяин хочет оклеить обоями стену длиной b и высотой a метров. У него имеется k рулонов шириной 55 см и длиной 10,5 м.