Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
tanysha4957
18.01.2020 21:57 •
Информатика
Вывести на экран в строку через пробел квадраты нечётных чисел от 301 до 201
Ответ:
Morkvap5
10.10.2020 03:20
var i:integer;
begin
i:=301;
while i>=201 do
begin
write(sqr(i),' ');
dec(i,2);
end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
TkAl06
08.09.2021 17:25
Сколько страниц в книге, информационный объем которой составляет 40 кб. Книга набрана с компьютерного алфавита, на каждой из страниц 128 строк по 32 символа в каждой строке....
bigsoldier
21.07.2021 01:21
Бағыттауыштар мен жылжыту бағытын сәйкестендір....
CrySony1
18.05.2021 03:14
3. Написать программу для вычисления y для заданного x по формуле y= x^3-3,5x^2+2. (Знак - ^ - возведение в степень). Протестировать программу при x=0; x=1; x=13,8; x=-0,5;...
ассасин32
06.01.2020 21:02
Запусти Паскаль и введи программу var a,b,c:integer; begin a:=−44; b:=abs(a); writeln( abs(−44)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b); writeln( sqr(b+b)=...
vikagalcenko4
21.06.2020 12:41
. Заданы три числа 2A16, 1010012, 638 которые записаны в различных системах счисления. Определите минимальное число из них и введите ответ в десятичной системе счисления...
оффЛис
12.06.2020 01:40
Задача5. ( ) Напишите функцию, которая на входе принимает список целых чисел и возвращает True, если цифры в порядке возрастания. В противном случае, верните False. Example:...
pavlushkaaa
15.05.2021 15:12
Написать команду , которая просит два значения и если хотя бы одно значение не является числом то просто соединить их, а если два числа то сложить...
Karamelka3467
11.10.2022 10:01
Составить программу присваивания элементам массива значение 5 информатика...
20042007rbn
11.02.2020 20:41
Рассмотри алгоритм и выполни сбор яблок...
yuliaprok61yulia1206
18.02.2021 07:18
Из соотношения V1/V2 =S1/S2 , выразить S2....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i:integer;
begin
i:=301;
while i>=201 do
begin
write(sqr(i),' ');
dec(i,2);
end;
readln;
end.