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

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

petercash 03 марта 2023

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

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

64

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

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

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

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