Регистрация
Kerizok
17.07.2022 17:01
Информатика
Есть ответ 👍

Запишите форму вычисления площади прямоугольника в качестве пропиетарной инструкции(перевел с казахского) ! делфи7

136
237
Посмотреть ответы 2

Ответы на вопрос:

ottom06
ottom06
4,7(88 оценок)
Var q: integer;     i,j: integer; begin  writeln('введите площадь');   readln(q);   for i: =1 to q do  for j: =i to q div i do    if i*j=q then writeln('длина: ',j: 6,'   ширина: ',i)end.
viktoriy39
viktoriy39
4,7(92 оценок)
//for uses crt; var k, i: integer; begin k : = 1; for i : = 6 to 11 do k = k × i; writeln(k); end. //while uses crt; var k, i: integer; begin k : = 1; i : = 6; while i < > 11 + 1 do begin k = k × i; inc(i) end; writeln(k); end.

Популярно: Информатика