Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Aleks2281338
27.08.2022 10:00 •
Информатика
Даны три числа d.c.f. найти количество чисел больших нуля
Показать ответ
Ответ:
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
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 оценок)
Популярные вопросы: Информатика
romanchukninA1
11.12.2020 04:29
Составить программу в паскале в некотором треугольнике основание больше высоты на заданную величину d. определите значение величины площади треугольника лучше с фото...
Lena163121
28.04.2021 17:37
K=0 For I= 1 to 100 If (mod (1,3)=2) and (mod (1,5) =1) Then k=k+1 End If Next...
kurbedinovazar
04.01.2023 13:42
В городе 4 ЖД вокзала. Южный, северный, восточный, западный. С южного вокзала отправляются 12 фирменных поездов. С северного 3. С западного 9. С восточного 7. Фирменные поезда...
wochdudj
19.04.2020 07:24
Информационный объём одного сообщения составляет 150 байт, а другого - 160 бит. Во сколько раз информацонный объём первого сообщения больше объёма второго сообщения? ...
Vexicy
26.09.2021 04:51
Перевести the girl who is talking to you is frends sister...
chartenok88201ovseez
26.09.2021 04:51
Найдите первый член и разность арифметической прогрессии, если а7=21, а9=29...
Нм6шиш
26.09.2021 04:51
Газ при температуре 100 с° и давлении 10^5 па изотермически сжат до давления 1,5*10^5 па. до какой температуры нужно изохорически охладить этот газ, чтобы давление понизилось до...
ГришаМститель
26.09.2021 04:51
Как пьер относился к наташе ростовой?...
DimaLeonov2000
26.09.2021 04:51
Запиши формули оксидів за такими назвами_: оксид цинку, оксид (ii), оксид (i), оксид магнію, оксид алюмінію,оксид сульфуру(iv), оксид сицилію(iv), оксид бору, оксид нітрогену(iv)...
jernova
26.09.2021 04:51
Сколько весит крокодил среднего возраста ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.
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.