Предмет: Информатика,
автор: глупая34
Помогите решить 1 задание! Прошуу
Приложения:

Ответы
Автор ответа:
0
Var
A:integer;
Begin
ReadLn(A);
For A:= 1 to A do
Write(A,' ')
End.
Var
A,B,P:integer;
Begin
ReadLn(A,B);
P:=0;
For A:= 1 to A do
P:=P+B;
Write(A,'*',B,'=',P)
End.
A:integer;
Begin
ReadLn(A);
For A:= 1 to A do
Write(A,' ')
End.
Var
A,B,P:integer;
Begin
ReadLn(A,B);
P:=0;
For A:= 1 to A do
P:=P+B;
Write(A,'*',B,'=',P)
End.
Похожие вопросы
Предмет: Алгебра,
автор: elenaperevalova
Предмет: Литература,
автор: Mirmyzikul
Предмет: История,
автор: nastais10
Предмет: География,
автор: lllValeria
Предмет: Информатика,
автор: Винчестеr