Подсчитать количество положительных чисел среди чисел a, b, c. Так чтоб в Паскале программа выводилась, желательно уже подставьте значения
просто читалась
не выаодилась, а читалась
у меня посточнно ошибку выдает
Кем читалась, где?
Детский лепет какой-то...
я не знаю как обьяснить
просто написать программу по этой задаче
введя свои значения
begin
var (a, b, c) := ReadReal3;
var s := a > 0 ? 1 : 0;
s += b > 0 ? 1 : 0;
s += c > 0 ? 1 : 0;
s.Println
end.
спасибо, однако с таким решением точно спалят что списыаала
Вы просили решение, Вы его получили. А если Вам надо, чтобы еще и "под Вас" писали - приводите примеры кода в вопросе...
А "списать" это решение нельзя, его нигде нет, кроме как тут.
если бы не говорилось про a, b, c, как про три имеющихся числа, эта задача вообще пишется в одну строчку.
begin ReadSeqReal(3).Where(t->t>0).Count.Println end.