Задача по информатики PASCAL

Question

Другие языки программирования и технологии

Задача по информатики PASCAL

Дали задачу по информатике.
Ввести 5 переменных, найти: сумму всех чисел, произведение всех чисел, сумму всех положительных чисел и максимальное число.
Все это надо записать на языке паскаль, но я нифига не понимаю. Помогите плиз!

Behzod Allaev

246

20.09.2013

Похожие вопросы

Answer 1 · 2012-10-24 18:08:49

5 баксов

Михаил Ломтев

84 186

24.10.2012

Answer 2 · 2012-10-25 03:15:55

var N, S, P, Sp, Max : Integer;
begin
Write('Введите первое число: '); ReadLn(N); S := N; P := N; if N > 0 then Sp := N else Sp := 0; Max := N;
Write('Введите второе число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N;
Write('Введите третье число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N;
Write('Введите четвёртое число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N;
Write('Введите пятое число: '); ReadLn(N); S := S + N; P := P * N; if N > 0 then Sp := Sp + N; if N > Max then Max := N;
WriteLn('Сумма чисел = ', S);
WriteLn('Произведение чисел = ', P);
WriteLn('Сумма положительных чисел = ', Sp);
WriteLn(Максимальное число = ', Max);
end.

Валерий Богдан

55 509

25.10.2012