Составить программу подсчета суммы четных чисел от 10 до 50

38

Составить программу подсчета суммы четных чисел от 10 до 50

категория: информатика

ответить

в избранное

80

vetterri

14 августа 2022

Program gg; Var i,s: integer; Begin For i: =10 to 50 do if i mod 2=0 then s: =s+i; Writeln ('Сумма всех четных чисел от 10 до 50 равна ',s) end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Информационное сообщение объемом 4 Кбайта содержит 4096 символов

Расположите в порядке возрастания: 1) 1 бит.2) 1 байт.3) 1 Кбайт.4) 1 Мбайт.5) 1 Гбайт

Задачка в abc pascal…

Дайте наиболее точное общее имя каждой группе: 1) канада, бразилия, япония 2) канада, бразилия, сша 3) канада, сша…

Сколько бит в сообщении: Здравствуй, Петя!

Определить значение переменной Z, которое будет получено в результате выполнения фрагментами программы…

Помогите пожалуйста. По информатике. Переведите в двоичную систему числа: 543, 950, 1025

Привести 3 примера обработки информации

В текстовом процессоре ворд пэд наберите слово информатика и сохраните его в документе с именем д 1 указав тип файла…

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...