Презентация на тему "История создания ЭВМ" здесь.
понедельник, 23 мая 2016 г.
четверг, 5 мая 2016 г.
Домашняя работа
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.
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.
Подписаться на:
Сообщения (Atom)