Задать вопрос
4 августа, 05:32

Введите в Паскале 5 чисел. Найдите сумму их квадратов и произведение квадратов этих чисел

+4
Ответы (2)
  1. 4 августа, 08:09
    0
    Var a, s, p, i:integer;

    begin

    s:=0; p:=1;

    writeln ('Введите 5 чисел:') ;

    for i:=1 to 5 do

    begin

    readln (a) ;

    s:=s+a*a;

    p:=p*a*a;

    end;

    writeln ('s = ', s,' p = ', p) ;

    end.

    Пример:

    Введите 5 чисел:

    2

    4

    3

    1

    5

    s = 55 p = 14400
  2. 4 августа, 08:51
    0
    Var

    a, b, c, d, f, sum, proiz:integer; begin Writeln ('Введите 5 чисел') ; readln (a, b, c, d, f) ; a:=sqr (a) ; b:=sqr (b) ; c:=sqr (c) ; d:=sqr (d) ; f:=sqr (f) ; sum:=a+b+c+d+f; Writeln ('Сумма квадратов данных пяти чисел = ', sum) ; proiz:=a*b*c*d*f; Writeln ('Произведение квадратов данных пяти чисел = ', proiz) ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите в Паскале 5 чисел. Найдите сумму их квадратов и произведение квадратов этих чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших 7. Введите несколько чисел. Найдите количество двузначных чисел. Введите несколько чисел.
Ответы (1)
Написать в тетради программу на Pascal: Спросить у пользователя три числа. Вывести сумму чисел, среднее значение. Пример: Введите а: 5 Введите b:4 Введите c:3 Сумма: 12 Среднее: 6
Ответы (1)
Program Series17; var a, B, N, i:integer; bol:boolean; begin i:=0; n:=0; bol:=true; Writeln ('Введите число B') ; readln (B) ; Writeln ('Введите число N') ; Readln (N) ; Writeln ('Введите ', N,' целых чисел.
Ответы (2)
Даны 3 стороны треугольника АВС-напечатать какой имеет вид треугольник. Проверьте где у меня ошибки: var a, b, c:integer; begin write ('введите a=') ; readln (a) write ('введите b=') ; readln (b) write ('введите c=') ;
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)