ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80?

Автор

Елена Леонидовна Теплоухова

Год написания книги

2020

Теги

<< 1 2 3 4 5 6 7 8 9 >>

На страницу:

Перейти

6 из 9

Настройки чтения

Размер шрифта

Высота строк

Поля

Write(sum);

end.

ExamBegin15

На вход в первой строке подается целое положительное число N, а в следующих N строках – набор из N вещественных чисел (по одному числу в строке). Вывести произведение всех чисел из исходного набора.

uses PT4Exam;

var

x, i: integer;

a, p: real;

begin

Task('ExamBegin15');

Read(x);

p := 1;

for i := 1 to x do

begin

read(a);

p := p * a;

end;

Write(p:4:2);

end.

ExamBegin16

На вход подается набор целых чисел, содержащий одно или более ненулевых чисел и завершающийся числом 0; каждое число располагается на новой строке. Вывести сумму всех чисел из исходного набора.

uses PT4Exam;

var

a, sum: integer;

begin

Task('ExamBegin16');

sum := 0;

ReadLn(a);

while a <> 0 do

begin

sum := sum + a;

Readln(a);

end;

WriteLn(sum);

end.

ExamBegin17

На вход подается набор вещественных чисел, содержащий одно или более положительных чисел и завершающийся отрицательным числом; каждое число располагается на новой строке. Вывести произведение всех положительных чисел из исходного набора.

uses PT4Exam;

var

a, sum: real;

begin

Task('ExamBegin17');

sum := 1;

ReadLn(a);

while a > 0 do

begin

sum := sum * a;

readln(a);

end;

WriteLn(sum:4:2);