Предмет: Информатика,
автор: Nodzaku
Пусть задана последовательность чисел a, b, c, d. Составить программу вычисления количества K положительных чисел, содержащихся в
этой последовательности. Печатать a, b, c, d, K.
Ответы
Автор ответа:
0
var
a,b,c,d,K:integer;
begin
write('Введите a,b,c,d: ');
readln(a,b,c,d);
K:=0;
if a>0 then K:=K+1;
if b>0 then K:=K+1;
if c>0 then K:=K+1;
if d>0 then K:=K+1;
writeln(a,' ',b,' ',c,' ',d,' K=',K);
end.
Тестовое решение:
Введите a,b,c,d: -4 5 3 0
-4 5 3 0 K=2
a,b,c,d,K:integer;
begin
write('Введите a,b,c,d: ');
readln(a,b,c,d);
K:=0;
if a>0 then K:=K+1;
if b>0 then K:=K+1;
if c>0 then K:=K+1;
if d>0 then K:=K+1;
writeln(a,' ',b,' ',c,' ',d,' K=',K);
end.
Тестовое решение:
Введите a,b,c,d: -4 5 3 0
-4 5 3 0 K=2
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: Английский язык,
автор: tornado57
Предмет: Алгебра,
автор: nastena1662
Предмет: Математика,
автор: kotikliz