Определить количество трехзначных чисел, кратных заданному числу

@Julia161 · Регистрация: 19.12.2011

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

@КонецСвета · 24.12.2011, 12:26

Pascal

uses crt;
var n,i,k: integer;
begin
write('Введите число ');
readln(n);
for i:=100 to 999 do
    if i mod n =0 then inc(k);
writeln('Количество кратных ',k);
end.

@Julia161 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 33
		1
	Определить количество трехзначных чисел, кратных заданному числу 24.12.2011, 12:19. Показов 4329. Ответов 1 Метки нет (Все метки) Определить количество трехзначных чисел, кратных заданному числу 0

	24.12.2011, 12:26

Определить количество трехзначных чисел, кратных заданному числу

Решение