Program one; var a,b,c,k: integer; begin writeln ('Введите числа, нажимая после каждого enter'); readln (a); readln (b); readln (c); k:=0; If a>0 then k:=k+1 else k:=k+0; If b>0 then k:=k+1 else k:=k+0; If c>0 then k:=k+1 else k:=k+0; writeln ('Количество положительных чисел ', k) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
