tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводятя
Склавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10
дженни34
3 07.10.2019 09:30
0
Ответы
СургутянкаАся
10.10.2020 01:17
(pascal)
var a,b:integer
begin
while a<>5 do
begin
read(a);
if a>10 then b:b+a;
end;
write(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
shwabmitia
18.01.2020 16:21
Для чого використовуэться горизонтальна лінійка пид час форматування тексту...
VictorBo
13.12.2021 23:41
БбоТ зНнАААнНиИя ттЛЛЛеЕеРрАамм - @united brai nly (бББе пПпббеовВв)...
NikolaAdamova
13.12.2021 23:40
БББо ЗЗНаНииИяЯЯ ТТтЕееЛЕЕГгАа - @united brai nly (ееЕЗзз ПРроОееЛлЛООв)...
balabonkin68p06p8r
13.12.2021 23:38
БоотТ НаанниЯЯя теЛлееЕгрррмМ - @united brai nly (еЕ поОллоО)...
yaremhykv04
13.12.2021 23:38
ББоОО иЯЯ ттТЕЕлЛЛеГГРаММ - @united brai nly (БЕЕзЗ РрРооОбЛлЛоОовв)...
ozorkaltseva
13.12.2021 23:38
Отметьте фразы которые являются высказыванием сегодня самый лучший день в году. сегодня - 13 декабря, понедельник. какой сегодня день недели? скоро 31 декабря, и...
PISOS228XYI
13.12.2021 23:37
БОТт ЗзЗааяя ТТЕлЕеерРРММ - @united brai nly (ЕЕЗз пппрООБеЛЛООвВв)...
Kok1n
13.12.2021 23:37
ББбОоТТ знННААаннниЯ ТеЕеллЕгГГРА - @united brai nly (Еезз ПППРРРОоББЕЕЕллЛОоОвВ)...
malckowdanilр
30.08.2019 19:50
Написать программы pascal abc 1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных 2.сначала вводится...
oksanakrasilnikova
30.08.2019 19:50
Спо информатике, . системы счисления. заранее . 1) дано: a=cf₁₆, b=321₈ какое из чисел x, записанных в двоичной системе, отвечает уравнению a x b ? 2) дано: a=b5₁₆,...
Популярные вопросы
Сколько градусов северной широты астрохань...
1
Сказка никита кожемяка. : запиши ключевые слова. что значит ключевые...
3
Решите с объяснением; 5т - 6ц= т ц 8км 936м +195м= км м 2ч13мин...
3
Сметана, сахар, молоко кефир, одежда, мебель, посуда попробуй...
1
:дно бассейна имеет прямоугольную форму. его выложили квадратными...
1
Мне нужен кроссворд по рассказу и утята...
2
Сочини про маленького мальчика который хотел научиться летать....
1
Как в разговорной речи большинство людей употребляют данные формы...
1
Впооизведении (алые паруса) в каком городе жила ассоль?...
3
Составить сочинение с этими словами: лесная полянка, зелёная трава,...
3
(pascal)
var a,b:integer
begin
while a<>5 do
begin
read(a);
if a>10 then b:b+a;
end;
write(b);
end.