Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Вычислить нечетные возраста.
Автор: rydyak 15.11.2011 0:19
Нужно решить задачу: С клав-ры вводится возраст учеников класса. Вычислить нечетные возраста.
Код
uses crt;
var i,n,y:integer;
a:array [1..600] of real;
begin
clrscr;
read(n);
for i:=1 to n do;
if i mod 1=0 then write (i,' ')
writeln;
i:=1;
while i<n do
begin
if i mod 1=0 then write (i,' ');
i:=i+1;
end;
writeln;
writeln('Cikl Repeat:');
i:=1;
repeat
if i mod 1=0 then write (i,' ');
i
var i,n,y:integer;
a:array [1..600] of real;
begin
clrscr;
read(n);
for i:=1 to n do;
if i mod 1=0 then write (i,' ')
writeln;
i:=1;
while i<n do
begin
if i mod 1=0 then write (i,' ');
i:=i+1;
end;
writeln;
writeln('Cikl Repeat:');
i:=1;
repeat
if i mod 1=0 then write (i,' ');
i
Автор: Гость 15.11.2011 1:12
А что не получается?
Неужели откомпилировать? 
Автор: rydyak 15.11.2011 1:31
Помогите додумать плз
Автор: sheka 15.11.2011 1:32
Додумал.
Автор: rydyak 15.11.2011 1:51
Выложи
Автор: sheka 15.11.2011 2:36
Приготовил - съел - выложил.