Написать программу по . даны 3 целых числа, найти количество положительных цифр на паскале
VovkaGamer228
3
25.12.2019 20:31
0
Другие вопросы по теме Информатика
zyla24
07.07.2019 15:10
AlexGrehova
07.07.2019 15:10
KekPekCheburek
29.05.2020 07:09
kristinka200000005
29.05.2020 07:02
380674944183
19.10.2020 09:39
простоквашино2345
19.10.2020 09:38
nikitarin0
19.10.2020 09:38
dashakeks2
19.10.2020 09:38
alenkaabramovic
19.10.2020 09:30
Популярные вопросы
- Укажи верное утверждение. Тематическая группа слов – это слова с одним лексическим...
3 - Скелет свободной верхней конечности:...
3 - Анализ мюзикла Ж.Пресгурвика Ромео и Джульетта ответить на вопрос: В чем оригинальность...
3 - Национальный корпус русского языка (НКРЯ) – это информационно-справочная система,...
2 - Найти массу одной молекулы воды...
3 - Jim was very s He didn t need...
3 - Какие задания придумал Кощей для ивана-царевича...
1 - Составить рассказ путешествие высадки астрономов и проведения исследований на...
3 - 2-тапсырма «Кім жылдам»әдісі Мақал-мәтелдердің бірінші сыңарындағы етістікке...
3 - Помагите семейде Абай білім алған молдалар кімдер...
3
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.