26.05.2010, 20:59
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
Провел на форуме:
599124
Репутация:
65
|
|
Ага всем спасибо большое) что-то я затупил с изучением поскаля)
Первая моя задача по паскалю закончилась)
Вдруг кому нужно будет
program chetnie; var i,s:integer; begin s:=1; for i:=1 to 10 do begin if i mod 2 = 0 then s:=s*i; end; writeln('Произведение первых 5-ти ЧЁТНЫХ чисел равно ',s); end.
|
|
|