Нахождение всех чисел кратных введенному и не превышающих N

@Polina09002 · Регистрация: 16.10.2017

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

нахождения всех чисел кратных ввода и таких не превышающих N PASCAL

@ZX Spectrum-128 · 17.10.2017, 07:02

Polina09002, я правильно перевел задание на русский язык?

@JuriiMW · 17.10.2017, 07:20

Pascal

var v, n, i : Integer;
begin
  Write('v = '); Read(v);
  Write('n = '); Read(n);
  Write('Кратные ', v, ' и не превышающие ', n, ' : ');
  i := 0;
  repeat
    Write(#32, i); inc(i, v);
  until i > n;
end.

@Polina09002 0 / 0 / 0 Регистрация: 16.10.2017 Сообщений: 17
		1
	Нахождение всех чисел кратных введенному и не превышающих N 16.10.2017, 22:05. Показов 2508. Ответов 2 Метки нет (Все метки) нахождения всех чисел кратных ввода и таких не превышающих N PASCAL 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	17.10.2017, 07:02	2
	Polina09002, я правильно перевел задание на русский язык? 0

	17.10.2017, 07:20

Нахождение всех чисел кратных введенному и не превышающих N

Решение