Вход
Регистрация
О проекте Как заработать?
77

Составить программу нахождения суммы целых чисел из промежутка ab

petercash 13 февраля 2023

Составить программу нахождения суммы целых чисел из промежутка ab.

категория: информатика
ответить
в избранное

64

Var: a, b, s: integer; BeginReadln (a, b); For I: =a to b doS: =s+I; Writeln (s); ReadlnEnd.

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
alexn9
13 февраля 2023
1
ответ
Объект-свойства-объект
bismark
13 февраля 2023
1
ответ
Даны целые числа x y c Напишите программу которая находит значение выражения x+y: 2c
rewold
13 февраля 2023
1
ответ
Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мбайта. Частота дискретизации – 22050 Гц. Какова разрядностьаудиоадаптера?
mehanik777
13 февраля 2023
1
ответ
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. ЯзыкСи +
levr78
13 февраля 2023
1
ответ
Ребяята помогите! Растровый газетный рисунок состоит из точек 4 цветов: черного темносерого светлосерого белого. Сколько бить понадобится длядвоичного кодирования одного пикселя этого рисунка?
dstar
13 февраля 2023
1
ответ
Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5 кандидатов-номерами от 1 до 5 (величина Н). Количество голосов набранныхкандидатами в каждом населенном пункте определяется формулой АКН=рандом (10*3+50). Вывести на экран таблицу результатов голосования, где в строках е данные из населенных пунктов, а в столбцах данные относительно конкурентных кандидатов. Определить и вывести кто из кандидатов набрал максимальное, а кто минимальное количество голосов в четвертом (4) населенном пунктея нашол даные макс. А мин. Никак не могу uses crt; const n=5; k=6; var a: array[1… 10,1… 10] of integer; b: array[1… 10] of integer; i,j,max: integer; Beginclrscr; randomize; for i: =1 to n dobegin for j: =1 to k do begin a[i,j]: =random (10*3+50); write (a[i,j]: 5); end; writeln; end; max: =0; for i: =1 to n do begin if a[i,4]>max then max: =a[i,4]; b[i]: =max; end; writeln; writeln (b[i]: 4); readln; end.
sm0king
13 февраля 2023
1
ответ
Нужно составить алгоритм и вычислить выражение: y=2x+b при а=5 b=5
vlada
13 февраля 2023
1
ответ
ПАСКАЛЬ! 1) Обнулить элементы в строке двумерного массива если в строке есть хотя бы два нулевых элемента. 2) Удалить строку если в нейесть нулевой элемент (двумерный массив) 3) В двумерном массиве заменить элементы стоящие над максимальным, минимальным элементом из последней строки… не использовать метку флаг true false
liliput
13 февраля 2023
1
ответ
Нужно создать маленькую программку по информатике (readln,write ln,var)+ Паскаль Даны координаты 3 х точек. Найти Площадьтреугольника.
Задайте свой вопрос

ПОПУЛЯРНОЕ
alexn9, 13 февраля 2023
Объект-свойства-объект
bismark, 13 февраля 2023
Даны целые числа x y c Напишите программу которая находит значение выражения x+y: 2c
rewold, 13 февраля 2023
Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мбайта. Частота дискретизации – 22050…
mehanik777, 13 февраля 2023
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. ЯзыкСи
levr78, 13 февраля 2023
Ребяята помогите! Растровый газетный рисунок состоит из точек 4 цветов: черного темносерого светлосерого белого
dstar, 13 февраля 2023
Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5 кандидатов-номерами от 1 до 5
sm0king, 13 февраля 2023
Нужно составить алгоритм и вычислить выражение: y=2x+b при а=5 b=5
vlada, 13 февраля 2023
ПАСКАЛЬ! 1) Обнулить элементы в строке двумерного массива если в строке есть хотя бы два нулевых элемента
liliput, 13 февраля 2023
Нужно создать маленькую программку по информатике (readln,write ln,var)+ Паскаль Даны координаты 3 х точек
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...