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

Ответы 3

  • Огромное ,Вам, спасибо!
  • Не за что. )
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years