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

На экран вывести все числа от 1 до х кратные 8 с while( паскаль)

Ответ:

EvaCat777

07.10.2020 22:16

Program n1;
var x,i: integer;
begin
i:=8;
readln(x);
while i<=x do
begin
write(i,' ');
i:=i+8;
end;
end.

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

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

Аноним8127

27.09.2021 03:23

решить через ! var a,b,x,s,p: integer; begin writeln( ввести х ); readln(x); тут нужно что то написать ; writeln( сумма цифр= ‚s);...

ЭллиВейн

15.11.2020 14:59

Векторная и растровая графика различи, без лишних слов. нужно! ...

57алес7т

22.01.2021 03:18

С. постройте криптографический протокол (аутентификации), обеспечивающий абсолютно честные выборы. требования к протоколу: а) конфидециальность данных б) каждый...

роллы6

18.09.2022 23:23

Как ввести строковый тип данных (string) через пробел в паскале...

Алёнка7913

20.02.2023 21:12

Найти сумму всех элементов массива целых чисел,которые меньше среднего арифметического элементов массива.размерность массива-20.заполнение массива осуществить случайными...

Skynet14

20.02.2023 21:12

Прочитай первую строку таблицы и заполни остальные строки. (первая строка)- стиральная машина стирать белье пачкать белье пачкальная машина. надо с этой строкой...

Daniyal11111111

03.08.2021 12:47

Придумай и напиши небольшой рассказ (6-10 предложений) для новой компьютерной игры для детей 5-6 лет!...

Nikitaprodakshen

20.12.2021 15:56

D=? a1=5 S20=480 Арифметическая прогрессия...

viktoriasvoya

27.11.2020 22:06

Нужна ли запятая перед как ?В лесу он понял как тяжко бывает...

asyanikolaeva0p08iun

14.02.2023 07:34

Укажите строку, в которой во всех случаях НЕ со словом пишется раздельно. (не)долюбленный; не(умный), а глупый (не)законченный художником портрет; (не)широкая, а...

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

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