Найти кратные

@Валентин94 · Регистрация: 29.09.2010

Найти все трехзначные числа, которые кратны 2 и 4

@andrei63 · 29.09.2010, 23:48

Pascal

var k,i:integer;
a:array[1..1000]of integer;
begin
for i:=100 to 1000 do
if (i mod 2=0)and (i mod 4=0) then
writeln(i);
readln;
end.

@uvarovandrej · 29.09.2010, 23:51

Сообщение от andrei63

Pascal

var k,i:integer;
a:array[1..1000]of integer;
begin
for i:=100 to 1000 do
if (i mod 2=0)and (i mod 4=0) then
writeln(i);
readln;
end.

1000 - это уже 4-значное число=))

@andrei63 · 29.09.2010, 23:54

Надо же чтоб хоть чуть чуть народ думал, а не все готовое

@Mad_Dog · 30.09.2010, 14:15

Хорошо бы еще чтобы и программописатель тоже думал...
Вполне достаточно и вот так...

Pascal

var
  i:integer;
 
begin  
  for i:=100 to 999 do
    if (i mod 4=0) then      
        write(i:5);        
  readln
end.

@Валентин94 0 / 0 / 0 Регистрация: 29.09.2010 Сообщений: 21
		1
	Найти кратные 29.09.2010, 22:46. Показов 938. Ответов 4 Метки нет (Все метки) Найти все трехзначные числа, которые кратны 2 и 4 0

@andrei63 141 / 135 / 69 Регистрация: 15.12.2009 Сообщений: 343
	29.09.2010, 23:54	4
	Надо же чтоб хоть чуть чуть народ думал, а не все готовое 0

Опции темы