Question

Нужно решить любые две задачи в ABC Pascal, желательно 1 и 3

Answer 1

Задание 1
var i : integer;
begin 
for i := 4 to 9 do  writeln(i,'*',i ,' - ',i*i);
end.

Задача 3 
Var n,m,p,k:integer;
Begin
write('n=');
read(n);
m:=n;k:=0;
while m<>0 do
begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('k=',k);
end.