tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу вычисления
Составьте программу вычисления суммы всех положительных трехзначных чисел, кратных 51.
volodchenko161
1 30.07.2019 03:30
3
Ответы
vaxyl
07.08.2020 21:59
//Pascal ABC.NET v3.1 сборка 1219
Var
i,s:integer;
begin
for i:=100 to 999 do
if i mod 51=0 then s:=s+i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
skidan2002
02.04.2021 12:42
Яких значень набудуть змінні А і В після виконання умовного оператора If для наведених наборів початкових значень?Фрагмент програмного кодуПочаткові значення А,...
domka123456789
02.04.2021 12:43
Дано два числа ввести сначала большее,потом меньшее (программа пейтон)...
salsavip333
24.04.2019 21:55
Два квадрата двигаются в противоположных направлениях и отталкиваются от стенок синего квадрата на алгоритмическом языке! в кумире...
xhhxjdjdj4
12.04.2021 19:17
Створи програму, яка обчислює суму N послідовних непарних чисел. Число N запитуємо у користувача. Загальний вигляд непарного числа 2*i+1 (де i номер числа, якщо...
akmal8606
12.04.2021 19:19
С++ Распределите пробелы Дана строка, содержащая по крайней мере один не ведущий пробел, за которым следует отличный от пробела символ. За счет изменения групп пробелов...
дарина25864
12.04.2021 19:21
С++ Банковский счёт Вкладчик положил на банковский счёт некоторую сумму. Каждый год на сумму вклада начисляется k процентов годовых (будем считать, что при начислении...
asyunyasavints
12.04.2021 19:22
С++ Выведи треугольник Выведите на экран последовательность символов: a ab abc abcd и т. д. до строки, заканчивающейся символом z....
lalalala777
12.04.2021 19:23
Переведите этот код на язык Python! uses crt; var a:array[1..10]of integer; i,sum,num : integer; BEGIN Randomize; write( Исходный массив : ); for i:= 1 to 10 do...
2508sanya
12.04.2021 19:27
Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа - это числа 7 и 42. Какое наибольшее...
rsobal45gmailcom
12.04.2021 19:29
Напишите программу в c++ которая считает сумму чисел массива...
Популярные вопросы
Переделай предложение. 1) they go to the park.- 2)her friends...
3
Водном бидоне 6 л молока, а в другом в 4 раза больше. сколько...
2
Вычислите массовую долю углерода в пропане с3н8...
1
Скакого момента начинается наказание раскольникова...
1
Что вставить? thank you for letter.i also want to tell you how...
1
Установите взаимосвязь внутреннего строения стебля и его основных...
1
Заполнить таблицу по по важнейшим военным операциям великой отечественной...
1
Перечислите костей составляющие грудную клетку: рёбра,шейный...
2
После какой связи удерживаются друг возле друга комплементарные...
2
Каждое ребро у параллелипипида это -...
3
Var
i,s:integer;
begin
for i:=100 to 999 do
if i mod 51=0 then s:=s+i;
writeln(s);
end.