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

Составить программу на паскале, которая находит сумму цифр от 1 до 25

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Avmb

30.03.2021 22:11

между населенными пунктами A, B, C, D, E построены дороги, протяженность которых приведена в таблице. ...

kasa0303

14.03.2020 01:03

Найти сумму разности произведения окружности и квадрата Площадь круга:число Пи*г(во 2-ой степени)...

shansosia05sofisofi

15.02.2021 07:23

Какие настройки можно выполнить для кисти paint пишут в учебнике и 2 вопрос как нарисовать закрешенный серым цветом эллипс без контура в paint`e это все...

diana04s

07.01.2022 21:40

Які з наведених висловлювань є правильними? Вибери у списку істинні твердження. Правильних відповідей може бути кілька. А)Уведене командою input значення присвоюється змінній. Б)За...

uciviyciy

01.10.2020 08:42

Як визначити значення властивостей об єктів у проектах у середовищі ...

Lizalalaz305

09.06.2022 21:09

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

Cat1235679

11.09.2020 19:22

Синформатикой! буду за ! работа 2.6. нужно разработать сайт в блокноте. напишите, , коды для создания этого сайта, которые работают....

larasayugay

13.02.2023 23:27

Запиши математическое выражение (30+z)2 на языке Паскаль. (При записи ответа используй прописные буквы...

SherlockloveMoriarty

13.09.2021 02:58

Информатика. Работа в PascalABS. Задача 1: В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе - произведение. После этого компьютер должен...

cvthidok

11.06.2020 12:37

Витя, Денис, Миша и Коля приняли участие в школьной олимпиаде по информатике, в которой один из них стал победителем. До подведения итогов их одноклассники высказали следующие предположения...

Ответ:

Света11111111119079г

07.10.2020 19:39

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,25).Sum());
end.

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

Ответ:

Holmes9

07.10.2020 19:39

Var
i, sum:integer;
begin
For i:= 1 to 25 do
sum := sum + i;
Writeln(sum);
end.

Результат:
325

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

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

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