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

Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: