Товарищи!:) Помогите, пожалуйста, с информатикой! Что вычисляет ...
Товарищи!:) Помогите, пожалуйста, с информатикой!
Что вычисляет приведённая ниже программа?
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(a,b,c);
i:=0;
If a>0 then i:=i+1;
If b>0 then i:=i+1;
If c>0 then i:=i+1;
WriteLn(i)
End.
Есть ответ
12.12.2022
224
Ответ
Вводятся три числа и программа вычисляет количество
тех из них, которые больше 0 и выводит эту сумму на экран.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022