Показать сообщение отдельно
Старый 08.11.2011, 17:10   #2 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Вот первая задачка.
Код:
var n,i,k:integer;
begin
  readln(n);
  i:=2;
  k:=0;
  repeat
    if (i mod 3)=0 then begin
      writeln(i);
      k:=k+1;
    end;
    i:=i+2;
  until k>=n;
  readln;
end.
DDS вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070