(2)

var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
if i mod 2=0 then
writeln(i);
readln;
end.

Классная работа.

var i,n,s:integer;
begin
writeln('Введите n');
readln(n); i:=1;
while i<=n do
if i mod 2=0 then
begin
writeln(i);
i:=i+1
end;
readln;
end.

Домашняя работа 29.04.2016

var a,k:integer; 
begin 
writeln ('Введите число'); 
readln (a); 
k:=0; 
while a<>0 do begin 
a:=a div 10; 
k:=k+1; 
end; 
writeln ('Кол-во цифр ',k); 
end.

Программа Pascal(домашняя работа)