66

Помогите пожалуйста составить программу на языке Pascal!

russ 28 февраля 2023

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

категория: информатика

60

var num, count: integer; begin count: =0; for i: =1 to 3 do begin readln (num); if num=0 then count: =count+1 end; writeln (count) end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...