Регистрация
uraalekseev1234
23.05.2020 16:34
Информатика
Есть ответ 👍

Составить программу нахождения площади квадрата и составить блок-схему.(заранее )

233
366
Посмотреть ответы 2

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

sjsdbj
sjsdbj
4,8(49 оценок)
Program q; var a: integer; begin write('сторона: '); read(a); a: =a*a; writeln('площадь равна: ',a); end.
kirill5761
kirill5761
4,6(23 оценок)
Var n, k, y: integer; begin   write('введите число: ');   readln(n);   k : = 0;   repeat       y : = n mod 10;       if y = 5 then k : = k + 1;       n : = n div 10;   until n = 0;   if k < > 0 then writeln('имеется')   else writeln('не имеется') end.

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