Последний отзыв
Книга дельная. Без воды, приводятся реальные кейсы и способы их разрешения. Много практичных полезных советов и методик. Кое-что уже испробовала в дел...
Далее
По всем вопросам обращайтесь на: info@litportal.ru
(©) 2003-2025.
✖
ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80?
Настройки чтения
Размер шрифта
Высота строк
Поля
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);
Другие электронные книги автора Елена Леонидовна Теплоухова
Последний отзыв
Книга дельная. Без воды, приводятся реальные кейсы и способы их разрешения. Много практичных полезных советов и методик. Кое-что уже испробовала в дел...
Далее