Предмет: Информатика, автор: глупая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.
Похожие вопросы
Предмет: Алгебра, автор: elenaperevalova
Предмет: История, автор: nastais10