logo
Войти Регистрация Спроси ai-bota


daallantin
15.07.2022 17:39

Склавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10​

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
YuliaZagorna
YuliaZagorna
20.09.2021 18:09
Оценить информационный обьем стереоаудиофайла длительностью звучания 4 секунды при качестве звука 12 битов,42 кгц...
Brainly2233
Brainly2233
20.09.2021 18:09
Собъяснением: ) 1) найдите значение логического выражения, если x=-3, y=3, z=-5 и d=false f: =not((x 0) and (y 0)) or ((z -2) and d)) 2) разработать алгоритм и программу...
teddy33
teddy33
20.09.2021 18:09
Есть код,который выдает максимальный элемент массива,мне нужна с его подсчетом,кусок кода: с++ { cin nums[i]; if (nums[i] max) max= nums[i]; //вычисляем максимальный...
Pingvinchikc
Pingvinchikc
15.08.2021 05:40
Вводится рост опр. кол-ва учеников в баскетбольную команду принимаются 180 сколько учеников примут в команду и напишите коментарий к ним и делать в паскале...
аникдим
аникдим
29.10.2021 09:48
1.числа 2156,1987,3486 записать в римской системе счисления 2.составить 5 числа в римской системе счисления пример: mcmxli(1941 ) примечания: 1=i 5=v 10=x 50=l 100=c...
TheEnder
TheEnder
22.11.2021 05:00
Сообщение содержит 13 символов сколько байт информации оно несет если написанно буквами из 512 символьного алфавита...
Milena251267
Milena251267
10.02.2020 00:19
Какие возможности компьютера являются важными при компьютерном моделировании ?...
IgorGr1ef
IgorGr1ef
10.02.2020 00:19
Сообщение,записанное буквами из 64-х символьного алфавита,содержит 20 символов.какой обьем информации оно несёт?...
026k
026k
23.03.2022 23:30
Янаписал программу в pascal abc net: var a,x,n,y: integer; i,s,sum,b: real; begin n : = 7; sum : = 0.0; for y : = 1 to n do begin write(y, -е число = ); readln(b);...
motya10432
motya10432
13.05.2021 20:39
Подскажите ключ для входа в office для windose7...
Ответ:
ket851230
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.

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