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

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

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

Дз

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.

(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.