Var n,i: integer;
begin
readln(n);
for i:=1 to 9 do
writeln(n,'*',i,'=',n*i);
end.
Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
Канал -а, мышка, тенор-д, логика -а, сервер-в, килобайт -з, графика -е, алфавит -ж
1 А) Автозаполнение порядкового номера(а1 а7)
Автозаполнение формул(Е2 Е7 С7 Е7
1)C1D2
2)C2C6