Презентация на тему "История создания ЭВМ" здесь.

Тест по теме "История ЭВМ" здесь.

Реферат по теме "История создания ЭВМ" здесь.

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

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.

Классная работа No 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: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.

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

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.