Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pitonpitonov
16.03.2021 22:59 •
Информатика
Составить программу,выводящую на экран четные числа от 10 до 20,по одному числу в строке.
Показать ответ
Ответ:
Kadokawa
12.07.2020 15:55
Program z8;
Var p:integer;
Begin
p:=8;
while p<20 do
begin
p:=p+2;
writeln(p);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vee19
08.02.2021 01:40
напишите названия инструментов...
agasan420
17.04.2023 03:21
У исполнителя Умножатор две команды, которым присвоены номера: 1. умножь на 3 2. прибавь 2 Первая из них увеличивает число на экра¬не в 3 раза, вторая — прибавляет к числу...
Danusja13
27.01.2021 23:42
разобрать шифр! Тут зашифровали фразу. 4B575753560E1C2A0E1B2F0E1B2F571750620E1B2F4D524C51604B5E570E1B2F3E3E3E3E3E43351E43403A21311F3E1F4E4F1F1D194...
Германкорпорация
20.01.2022 06:25
решить информатику цикл через while без Через...
Акакий55
16.09.2022 15:36
Даны два массива одинаковой размерности A(N) и В(N). Определить количество элементов, удовлетворяющих условиям A(i) B(i);A(i)...
BlackDiamondIce
10.07.2022 05:15
Аян редактировал текст, состоящий из 256, символов. После обработки информационный объем текста стал равен 3072 битам. Найди, сколько символов удалил Аян из текста, при...
edshabashenko
07.05.2021 14:04
Расшифровать с Wingdings (заменить цифрі словами) на моєму столы стоять 58 та 40. для виконання домашнього завдання мены потрібно 38, 33 та 34. Сьогодні я 63 42 та віднесу...
imam002121
22.08.2021 23:18
приготовь презентацию из 3 слайдов по предложенной теме содержание слайдов должно раскрывать заголовки интернет-зависимость тема презентации заголовка слайдов уровень развития...
nastyabodrova1
19.04.2023 19:25
Program usi; Var d,r: real; Begin writeln( ВЕДИТЕ ЧИСЛ ); Readln (d); if d 0.655 THEN write(r=sqrt(d)) else IF d =0.65 THEN write (r=3-2*d); readln(d) End. выдаёт ошибку:...
dshaa14
03.11.2020 08:58
Транскрипція слова мінятися боротьба піднебесний вокзал це фонетичний розбір...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var p:integer;
Begin
p:=8;
while p<20 do
begin
p:=p+2;
writeln(p);
end;
end.