Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
вгььсь
04.06.2020 00:28 •
Информатика
Составьте программу, которая выводит автоматически квадраты целых чисел от 1 до 10(оператор цикла с предусловием)
Показать ответ
Ответ:
rahbfwBbdqbqdI
20.07.2020 13:56
Var p,i,:integer;
begin
writeln('Квадраты числ');
p := 1;i:=1;
while i< 11 do
begin p *= i*i;
write(p:4);
i:= i + 1;
p:=1;
end;end.
0,0
(0 оценок)
Популярные вопросы: Информатика
popovapp26
06.02.2022 08:03
Составить БЛОК-СХЕМУ определения времени встречи двух автомобилей, если известно расстояние между двумя пунктами, откуда они вышли навстречу друг другу одновременно,...
edikmarik
11.10.2020 21:57
Движение робота по линии. Урок 2можно ответы на вопросы с 1-9 задание?...
aodushkina824oya9o5
26.08.2020 06:50
с этим, если будет спам-бан...
Лизок070707
14.04.2020 05:46
Вопрос по составить программу Составь программу для решения задачи: Найти стоимость покупки z, если задана цена m 1 кг товара и количество товара составить такую...
Жанел130107
12.10.2021 20:50
Дано число. Если заданное число нечетное, то число следует умножить на 5, а если четное, то уменьшить в два раза. Если вводимое число равно 0, то вывести сообщение...
марья49
07.01.2021 00:38
Синформатикой, : нужно написать программы для массивов, содержавших целые числа : 1) заполнение случайными числами из диапазона от 0 до 49,вывод значений в строку;...
Aurusu
29.10.2021 06:28
Коне руна жазуынын мартебесин котеру максатында ел агалары кандай шара колданды...
ludvig9
23.01.2022 19:53
Дуль которых равен 10? Быть число, если его абсолютное значение меньше двухНазовите шесть таких чисел.АУпражнения1) -50 = 50;2) 111 = 111;3) -8,3 = 8,3;75315. Прочитайте...
hermoguchiy
23.01.2022 19:53
Классифицируйте приведенные реакции на гомогенные и гетерогенные: Zn + CuSO4 (p-p) → ZnSO4 + CuFeS + 2HCl (p-p) → FeCl2 + H2S↑Na2CO3 + 2HCl → 2NaCl + H2O + CO2↑CuSO4...
sofa285
23.01.2022 19:53
Компьютерная сеть в зависимости от передачи данных делиться на:кабельную и......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Квадраты числ');
p := 1;i:=1;
while i< 11 do
begin p *= i*i;
write(p:4);
i:= i + 1;
p:=1;
end;end.