В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Aleks2281338
Aleks2281338
27.08.2022 10:00 •  Информатика

Даны три числа d.c.f. найти количество чисел больших нуля

Показать ответ
Ответ:
Patara1986
Patara1986
05.10.2020 06:58
Program z2;  Var d,c,f,s:integer;Begin
  Write('D = '); readln(d);  Write('C = '); readln(c);  Write('F = '); readln(f);  s:=0;    if (d > 0) then s:= s + 1;  if (c > 0) then s:= s + 1;  if (f >0) then s:= s + 1;
  writeln('Кол-во чисел болььших 0  = ',s)End.
0,0(0 оценок)
Ответ:
mikreaz
mikreaz
05.10.2020 06:58
Uses crt;
var a,b,c,s,k : integer;

begin
writeln('Введите 3 числа :');
readln(a,b,c);

if a > 0 then
begin
k:= k + 1;
s:= a;
end;

if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;

if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;

writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота