1. Юзер вводит целые числа, заканчивая ввод числом 0. Найти количество
1. Пользователь вводит целые числа, заканчивая ввод числом 0. Найти количество и творение тех из их, которые больше 0 и меньше 10.
2. С клавиатуры вводятся 10 двузначных естественных чисел. Найти, сколько посреди их чисел, у которых сумма цифр - число четное.
3. Желанно, НО НЕ Непременно
Пользователь вводит с клавиатуры целые положительные числа (количество не ограничено).Ввод обязан тормознуть, как только сумма введенных чисел станет больше 100. Вывести сумму чисел и количество введенных чисел.
Задать свой вопрос1 ответ
Мишаня Зизяев
1.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (alt;gt;0) do begin
if (agt;0) and (alt;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(agt;=10) and (alt;100);
for i:=1 to 10 do
begin
repeat readln(a); until(agt;=10) (alt;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 (bgt;100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (alt;gt;0) do begin
if (agt;0) and (alt;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(agt;=10) and (alt;100);
for i:=1 to 10 do
begin
repeat readln(a); until(agt;=10) (alt;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 (bgt;100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.
Мила Нефедина
это не то немножко, щас исправлю
Валентина Сурасгина
вот так
Константин
щас подумаю над второй
Артемка Ралюков
щас я даже улучшу 2программу
Борис Гуньков
спасибо огромное!
Андрей Фабер
щас напишу 3задачу
Вера
Всё
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов