program raf105;
var i:integer;
begin
for i:=10 to 99 do
if (i mod 2)<>0
then write(i,' ');
end.
Язык программирования PascalABC
Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.
На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и всему классу наглядно понятно, что и как делать.
Еще на уроках информатики мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.
У нас очень хороший учитель. Она всё объясняет и показывает. .
var i:integer;
begin
clrscr;
writeln('Cikl For:');
for i:=2 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
writeln('Cikl While:');
i:=2;
while i<=30 do
begin
if i mod 2=0 then write(i,' ');
i:=i+1;
end;
writeln;
writeln('Cikl Repeat:');
i:=2;
repeat
if i mod 2=0 then write(i,' ');
i:=i+1;
until i>30;
readln
end.