Вывести на экран все целые числа от а до b ,кратные некоторому числу с

24.11.2010, 12:26. **Показов** 6776. **Ответов** 1

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

@ChameleoN · 24.11.2010, 15:00

Pascal

const x =1;
y = 100;
var a : array[x..y] of integer;
k : integer;
i : integer;
begin
k := 5;
for i := x to y do
for i := x to y do
begin
a[i] := i;
if a[i] mod k = 0 then
writeln(a[i]);
end;
readln
end.

Ритик***
		1
	Вывести на экран все целые числа от а до b ,кратные некоторому числу с 24.11.2010, 12:26. Показов 6776. Ответов 1 Метки нет (Все метки) Вывести на экран все целые числа от а до b ,кратные некоторому числу с

Опции темы

Вывести на экран все целые числа от а до b ,кратные некоторому числу с

Решение