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

Программирование.pascal. с циклом. 1. пользователь вводит 10 целых чисел. посчитать,сколько из них положительных , отрицательных и нулей. 2. вводятся целые числа, ввод заканчивается 0. посчитать, количество и произведение тех из них, которые > 0 и < 10. 3. пользователь вводит целые числа(положительные), остановить его, как только сумма чисел станет > 100 .вывести, сколько чисел введено.

Показать ответ
Ответ:
brain75
brain75
11.06.2020 19:09

Держи 1 и 3 ;) :

 

1)

Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;

Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;

for i := 1 to 10 do
        begin
        readln(n);
        if n > 0 then poloz := poloz + 1;
        if n < 0 then otrits := otrits + 1;
        if n = 0 then zero := zero + 1;
        end;

write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);

ReadKey;
End.

 

3:

Program solution;
Uses Crt;
Var sum, num, count : Word;

Begin
ClrScr;
sum := 0;
count := 0;

while sum <= 100 do
        begin
        write(': ');
        readln(num);
        sum := sum + num;
        count := count + 1;
        end;

writeln('Было введено чисел: ', count);

ReadKey;
End.

 

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