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

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

petercash 02 апреля 2023

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

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

64

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

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

Знаете другой ответ?
Другие вопросы по информатике
alexn9
02 апреля 2023
1
ответ
Объект-свойства-объект
bismark
02 апреля 2023
1
ответ
Даны целые числа x y c Напишите программу которая находит значение выражения x+y: 2c
rewold
02 апреля 2023
1
ответ
Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мбайта. Частота дискретизации – 22050 Гц. Какова разрядностьаудиоадаптера?
mehanik777
02 апреля 2023
1
ответ
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. ЯзыкСи +
levr78
02 апреля 2023
1
ответ
Ребяята помогите! Растровый газетный рисунок состоит из точек 4 цветов: черного темносерого светлосерого белого. Сколько бить понадобится длядвоичного кодирования одного пикселя этого рисунка?
dstar
02 апреля 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
02 апреля 2023
1
ответ
Нужно составить алгоритм и вычислить выражение: y=2x+b при а=5 b=5
vlada
02 апреля 2023
1
ответ
ПАСКАЛЬ! 1) Обнулить элементы в строке двумерного массива если в строке есть хотя бы два нулевых элемента. 2) Удалить строку если в нейесть нулевой элемент (двумерный массив) 3) В двумерном массиве заменить элементы стоящие над максимальным, минимальным элементом из последней строки… не использовать метку флаг true false
liliput
02 апреля 2023
1
ответ
Нужно создать маленькую программку по информатике (readln,write ln,var)+ Паскаль Даны координаты 3 х точек. Найти Площадьтреугольника.
Задайте свой вопрос

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