Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
zinina1178
13.09.2021 17:24 •
Информатика
Склавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10
Ответ:
zavet3427
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 оценок)
Популярные вопросы: Информатика
Ьала
17.05.2022 23:25
В одной из кодировок ASCII каждый символ кодируется 8 битами. Определите размер в байтах следующего предложения в данной кодировке: Слух обо мне пройдёт по всей Руси...
Excellent11
17.08.2020 08:08
4.Как называются элементы интерфейса графического редактора Paint?...
alenapanina00
17.03.2021 10:40
Написать программу, которая выводит на экран вычисления объема полого цилиндра. r1 – радиус цилиндра r2 – радиус отверстия h – высота цилиндра pascal...
KatyaKorytnaya
17.03.2023 13:02
Напишите программу, работающую с одним массивом из 10 элементов целочисленного типа. программа просит пользователя заполнить массив целыми значениями, затем упорядочивает...
Гововрв
07.06.2023 14:11
Что произойдёт, если во время демонстрации нажать данную клавишу ? можно создать новую презентацию. можно перейти на предыдущий слайд. можно выключить компьютер....
shvanova2017
31.05.2020 05:52
Дан фрагмент программы на алгоритмическом языке нц для n от 1 до 15 k: =n+2; m: =n; b[n,m]: =n*n+k кц нц для m от 1 до 15 k: =m+5; b[n,m]: =m+k кц чему будет равно...
Информатик111111
31.05.2020 05:52
Составте алгоритм вычесления площади параллепипеда, если ширина-а, длина-б, а высота-h...
татьяна1044
25.10.2020 15:16
Какое место занимает кыпчыкские племена в формировании казахского этноса?...
arladich
25.10.2020 15:16
2. Расстояние между пунктами А и В на карте составляет 6 см. Определите расстояние наместности между этими пунктами, еслимасштаб карты равен 1:8 300 000....
ДашаЕ1
01.06.2022 19:55
Read the dialogue, underline the words of expressing opinion. Sam: So, how many friends, do you say you have?Jane: Well, it is a very difficult answer; it depends on what you mean by friends. In my opinion, I get on well with a lot of people at school, there may be thirty-five people, but I do not call them friends….Sam: Do you socialize with someone outside the school?Jane: Oh yes, maybe not that often, but we meet up after sometimes. Then, I have got some friends with whom I go jogging and I also go to the gym with them. I think, I do not have a lot in common with them apart from running and exercising, but I can call them friends anyway.Sam: I see, how many of these friends can you ask for help?Jane: Well, some people say that a true friend is a person who can help you in difficult times. Friends you can really trust…. I don’t have so many of those. One or two, really. I neverfall out with them.Sam: And what about networks? Do you have any online friends?Jane: No, not really. I do not believe in such kind of friendship. What about you?Sam: I am different. I have a lot of friends on Facebook, Twitter, VK and so on. It is so exciting to have friends all over the world.Jane: Yes, that’s ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
(pascal)
var a,b:integer
begin
while a<>5 do
begin
read(a);
if a>10 then b:b+a;
end;
write(b);
end.