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

1. пользователь вводит целые числа, заканчивая ввод числом 0. определить количество и произведение тех из них, которые больше 0 и меньше 10. 2. с клавиатуры вводятся 10 двузначных натуральных чисел. определить, сколько среди них чисел, у которых сумма цифр - число четное. 3. желательно, но не обязательно пользователь вводит с клавиатуры целые положительные числа (количество не ограничено).ввод должен остановиться, как только сумма введенных чисел станет больше 100. вывести сумму чисел и количество введенных чисел.

Показать ответ
Ответ:
vasiljev255
vasiljev255
01.10.2020 13:15
1.
Var a,b,pr:integer;
Begin
pr:=1;   
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do  begin 
 if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a)  end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.

2.
Var a,b,c,i,sum,f:integer;
Begin
 Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do 
  begin 
     repeat readln(a); until(a>=10) (a<100)
      b:=a mod 10;
      c:=a div 10;
       sum:=b+c;
        if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.

3.
Var a,b,c:integer;
Begin 
  write('Вводите целые положительные числа.');
repeat
   readln(a);
b:=b+a;
c:=c+1;
 until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.
   
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота