Вывести все целые числа из диапазона от А до В, кратные 3

@КристинаМ · Регистрация: 13.06.2014

Студворк — интернет-сервис помощи студентам

с помощью 1)цикл while
2)repeat until

@Puporev · 16.06.2014, 10:05

Pascal

i:=a;
while i<=b do
 begin
  if i mod 3=0 then write(i,' ');
  i:=i+1;
 end;

Pascal

i:=a;
repeat
if i mod 3=0 then write(i,' ');
i:=i+1;
until i>b;

@maximkaaaa · 23.05.2016, 16:36

Puporev,
можете помочь
3)Составить программу используя оператор WHILE
Вывести на экран , кратные К из промежутка (А,В). Числа К,А,В задаёт пользователь

@ZX Spectrum-128 · 23.05.2016, 16:40

maximkaaaa, так решено же. Вместо 3 подставьте k.

@КристинаМ 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 22
		1
	Вывести все целые числа из диапазона от А до В, кратные 3 16.06.2014, 09:08. Показов 7853. Ответов 3 Метки нет (Все метки) с помощью 1)цикл while 2)repeat until 0

@maximkaaaa 0 / 0 / 0 Регистрация: 23.05.2016 Сообщений: 13
	23.05.2016, 16:36	3
	Puporev, можете помочь 3)Составить программу используя оператор WHILE Вывести на экран , кратные К из промежутка (А,В). Числа К,А,В задаёт пользователь 0

@ZX Spectrum-128 6805 / 4564 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	23.05.2016, 16:40	4
	maximkaaaa, так решено же. Вместо 3 подставьте k. 0

Опции темы

Вывести все целые числа из диапазона от А до В, кратные 3

Решение