Repeat. Вывести на экран все целые числа от A до B кратные пяти

@papoose · Регистрация: 09.12.2014

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

задать интервал целых чисел от а до б вывести на экран все целые числа от а до б кратные пяти числа вывести в строку через пробел
решите с помощбю рипит плиз

@Samhain · 09.12.2014, 08:57

papoose,

Pascal

var a,b:integer;
begin
  write('a = ');readln(a);
  write('b = ');readln(b);
  repeat
    if a mod 5 = 0 then write(a:3);
    a:=a+1;
  until a>b;
end.

@APALoff · 09.12.2014, 10:42

Pascal

var a,b,i:integer;
begin
  write('a = ');readln(a);
  write('b = ');readln(b);
  For i:=a to b do if a mod 5 = 0 then write(a,' ');
end.

@papoose 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 22
		1
	Repeat. Вывести на экран все целые числа от A до B кратные пяти 09.12.2014, 00:22. Показов 4690. Ответов 2 Метки нет (Все метки) задать интервал целых чисел от а до б вывести на экран все целые числа от а до б кратные пяти числа вывести в строку через пробел решите с помощбю рипит плиз 0

Опции темы

Repeat. Вывести на экран все целые числа от A до B кратные пяти

Решение