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

Найти сумму чисел, кратных 3 от 1 до 100.

Показать ответ

Ответ:

EnderDragon500

05.10.2020 07:27

Program n1;
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

mariaks16

21.12.2022 09:34

В программе записана команда Х:= abc ; Как следует описать переменную X? 1)var X:string; 2)var X:char; 3)var X:integer; 4)var X:real; 5)var X:boolean; Если вы тупо...

Alexa2288

08.09.2022 17:24

Дано целое число K (0 K 10) и текстовый файл, содержащий более K строк. Удалить из файла последние K строк....

mn2281488

30.08.2021 04:03

Дана матрица размера M×N. Перед строкой матрицы, содержащей минимальный элемент матрицы, вставить строку из нулей....

Юльчик12134567890

04.12.2020 02:58

Определить: 1. какой массив используется; 2. каков размер массива; 3. определите какой алгоритм реализован в данной программе?...

lina5555555

03.07.2021 22:45

Опишите запись с именем типа Avia, содержащую информацию о рейсах самолетов: номер рейса (тип integer), время вылета (тип real), время прилета (тип real), пункт назначения...

ternya1sd

18.09.2022 02:29

1. Выбрать функцию, составить блок-схему и программу: • для вычисления значений функции в указанных точках разбиения промежутка ее задания • среди вычисленных значений...

gulitenko

08.03.2022 11:27

var i: integer; s: real; a: array [1..7] of real; d: array [1..7] of string; BEGIN s:=0; writeln ( Введите температуру ); for i:=1 to 7 do begin if i=1 then write(...

2017mariana

01.07.2021 22:57

Выберите знаковые информационные модели: Формула площади прямоугольника Географическая карта Рисунок Басня Иллюстрация 2 ответа...

nikrozumenko

01.09.2021 08:02

Информатика, 1. При каких значениях переменных логическое выражение x₁ · ¬x₂ · ¬x₃ · x₄ истинно? При каких оно ложно? 2. При каких значениях переменных логическое выражение...

mag792

10.09.2021 22:03

Программу в паскале. просклонять слово «корзина» для числа в диапазоне от 1 до 10...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку