tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, в которой
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и выводит на экран сумму всех введённых чисел, кратных 5.
School30zh
1 23.09.2019 12:13
1
Ответы
PabloDC
10.09.2020 14:59
PascalABC.NET
var a,b:Integer;
begin
a:=1;
while a<>0 do
begin
Read(a);
if a mod 5 = 0 then
b+=a;
end;
WriteLn(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
даша3634
10.11.2020 15:01
Программа для создания презентации a) Power Pointб) Paintв)Operaг) все перечисленное...
nebeca
10.11.2020 15:01
Вопрос No 10 Для защиты от несанкционированного доступа к программам иданным, хранящимся на компьютере используютсякодыанкетыпаролиярлыки....
2000nmz
10.11.2020 15:01
Перечислите строковые процедуры...
Lolkek3332
10.11.2020 15:01
Какой алгоритм называется логическим?...
Albinnabel
10.11.2020 15:01
С каких имён переменные должны быть описаны в разделе описания переменных или констант?...
Zubu
10.11.2020 15:00
Какой оператор является оператором объявления типа данных ?...
Дарья20041111
06.03.2020 08:18
Подберите описание к каждому из графов, представленных на рисунках, и к лишнему графу придумать своё описание:...
1234554321111
16.02.2020 19:54
Начертите на бланке структуру базы данных «Школа», содержащую сведения об учениках школы. Укажите необходимые имена полей и их типы данных. Задайте ключевое поле....
kisakz12
16.02.2020 19:53
Пацанф,потянет пабг лайт на 2.0 ghz?...
vika8330
20.01.2021 14:39
Алтын Орда ыдырашаннан кейын картадагы озгерыс ...
Популярные вопросы
Решите уравнение: 1)16x-8x^2=0 2)(x-9)(4x+-9)(3x-1)=0...
3
Вспортивных соревнованиях участвовали 72 школьника , среди которых было 18 девочек...
2
Доклад о блаженном симоне юрьевецком...
2
Выпишите номера правильных суждений . 1. в надземных столонах земляники накаплив?...
3
Это важная оценка ! ! дочка в 7 классе, ! если не трудно 1) дано : треугольник bdk...
1
Предложение: и стоит береза в сонной тишине, и горят снежинки в золотом огне . сделать...
1
Исследуйте функцию y=1/6x^2-3ln x на монотонность и экстремумы...
2
Сказка о царе салтане. одна стала царица,одна поворихой,а другая?...
3
Найти углы равнобедренной трапеции, в которой боковая сторона равна 2корень2 см...
3
Добрый вечер! я хотел спросить, что означает перевёрнутая галочка, которая ставиться...
2
var a,b:Integer;
begin
a:=1;
while a<>0 do
begin
Read(a);
if a mod 5 = 0 then
b+=a;
end;
WriteLn(b);
end.