Var n,i: integer;
begin
readln(n);
for i:=1 to 9 do
writeln(n,'*',i,'=',n*i);
end.
Var
R:string;
begin
R:='0,017*100/2=0.85 ом';
writeln(R);
end.
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
1024×400=409600 байт
409600÷50=8192байта/с
8192×30=245760байт=240Кбайт
Электронная почта на компьютере