50

Вынеси 20 раз квадрат любого числа написать программу и алгоритм

05 февраля 2023

Вынеси 20 раз квадрат любого числа написать программу и алгоритм

категория: информатика

42

var a,b: integer; beginwriteln ('Введите число'); readln (a); for b: =1 to 20 do writeln (sqr (a); readln; end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...