Вычисление информации или игры и интернет обработка информации
Задание 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<span>.
</span>
Трассировочная таблица:
А1 0
А2 3
А3 8
А4 15
S 0 3 11 26
I 1 2 3 4
Ответ:26
Паскаль:
var a,b,c, sum,d,k: integer;
begin
Writeln('Введите А');
readln(a);
Writeln('введите б');
readln(b);
Writeln('Введите С');
readln(c);
d:= b-a;
sum:=d;
k:=c-a;
sum:=sum+k;
Writeln('Сумма=',sum,'Длина AB=',d,'AC=',k);
end