Войти Регистрация Спроси ai-bota

Как с цикла while вывести на экран квадраты всех цифр

Показать ответ

Ответ:

Сmetana34

24.09.2020 08:24

{PascalABC}

var a:integer;
begin
while a<10 do begin
write(a*a,' ');
a:=a+1;
end;
end.

0,0(0 оценок)

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

slava531

09.08.2022 18:00

запишите как называется маленький чёрный квадрат в правом нижнем углу и укажите его применение в MS Excel ...

TTLoXoIMalchik

22.02.2021 04:23

Что такое тяжёлая промышленность...

Дарья16072005

23.06.2020 10:44

Заданий масив різних дійсних чисел. знайти найменший та найбільший елементи масиву та їх ііндекси...

littlefoxy

24.09.2021 07:22

Определите формат ячеек с2:с4 D2:D4...

Ника290305

18.04.2023 16:40

Максимальная скорость передачи данных по модемному протоколу v.92 составляет 56000 бит/c. какое максимальное количество байт можно передать за 10 секунд по этому протоколу?...

Эллада20029

18.04.2023 16:40

Скорость передачи данных через adsl-соединение равна 256000 бит/c. передача файла через данное соединение заняла 16 секунд. определите размер файла в кбайт....

alicegluskin

19.06.2020 21:46

массив состояший из 5-ти целочисленных элементов .в выводе использовать writeln ....

1649fn49

18.09.2022 11:51

Известный пират флинт положил некоторую сумму s в банк под 3% годовых. выведите на экран,какой станет сумма через n лет...

я2двойшник

18.09.2022 11:51

Ввести число n. вывести количество его простых делителей. в...

rasul1233

28.07.2022 12:45

с информатикой,что означает эта картинка?Отчёт?За Форма с информатикой,что означает эта картинка?Отчёт?За Форма? >...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку