Задачи для самостоятельного решения
Задача
1. Дано целое число А. Найти сумму 5 чисел А (используя цикл for).
Задача
2. Даны два целых числа А и N. Найти сумму N чисел А (операцию умножения не использовать).
Задача
 3. Даны два числа вещественное А и целое N. Найти сумму N чисел А (операцию умножения не использовать).
 Задача
 4. Дано целое число N. Напечатать N раз слово «Информатика» через пробел
Задача
5.Даны два целых числа A и N. Используя цикл возвести число А в степень N.

Огромное ,Вам, спасибо!

Не за что. )

1)vara,i:integer;s:real;   begin      readln(a);        for i:=1 to 5 do               s:=s+a;writeln(s:4:0);end.2)vara,n,i:integer;s:real;beginreadln(a,n);   for i:= 1 to n do        s:=s+a;writeln(s:4:0);end.3)varn,i:integer;a,s:real;beginreadln(a,n);   for i:= 1 to n do        s:=s+a;writeln(s:4:2);end.4)consta='ИНФОРМАТИКА';vari,n:integer;begin     readln(n);          for i:=1 to n do              write(a,' ');end.5)vari,n,a:integer;p:real;begin           readln(a,n);              p:=1;                               for i:=1 to n do                                           p:=p*a;writeln(p);end.