Презентация по реферату находится здесь
вторник, 17 мая 2016 г.
четверг, 28 апреля 2016 г.
Вывод на экран четного числа.
Способ 1:
Var i,n: integer;
begin
writeln('Введите число');
readln(n);
i:= 1;
while i<=n do
If i mod 2=0 then
begin
writeln(i);
i:= i+1;
end;
readln;
end.
Способ 2:
Var n,i:integer;
Begin
Readln(n);
For i:= 1 to n do
If i mod 2=0 then
writeln(i);
Readln;
End.
Способ 3:
Var i,n: integer;
begin
writeln('Введите число');
readln(n);
i:= 1;
repeat
If i mod 2=0 then
begin
writeln(i);
i:= i+1;
end;
until
i=n;
readln;
end.
суббота, 9 апреля 2016 г.
суббота, 16 января 2016 г.
понедельник, 21 декабря 2015 г.
Подписаться на:
Сообщения (Atom)