Регистрация
ekaterinaefimenko16
19.09.2021 14:37
Информатика
Есть ответ 👍

Запишите программу на языке Паскаль
Очень вычисление значение функции Y= корень из х
2)вычисление Гипотенузы прямоугольного треугольника по двум известным катетам
3)вычисление корней квадратного уравнения
4)вычисление стоимости покупки состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей ​

156
431
Посмотреть ответы 1

Ответы на вопрос:

yaach1
yaach1
4,4(27 оценок)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');  

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) then k:=k*a;

end;

Writeln('Произведение чисел оканчивающихся на 5 - ',k);

End.

Популярно: Информатика