tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить количество чисел
Определить количество чисел в промежутке от a до b и их сумму, если числа целые
kirilladmiiral
2 09.09.2019 15:00
0
Ответы
olykylak2551
01.09.2020 10:50
Var
a, b, i, sum ,k:integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
k:=0;
sum:=0;
for i:=a to b do begin
k:=k+1;
sum:=i+sum;
end;
writeln('Сумма чисел, находящихся в диапазоне от ',a,' до ',b,' = ',sum);
Write('Их кол-во = ', k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lol1045
09.04.2020 21:56
Звернутися до елементу за його ключем і присвоїти його значення інформатика...
beginfiu
09.04.2020 21:56
Книга содержит 121 страниц. На каждой странице 33 строк. В каждой строке 60 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется...
bladone439
09.04.2020 21:56
Цикл Repeat Вычислить факториал числа: n!=1*2*3*..*n...
ДаняПрохоров
14.12.2021 15:33
Ограниченности в живописных средствах обладают растровые редакторывекторные редакторытекстовые редакторы...
nastysh20011
14.12.2021 15:31
Запиши результаты выполнения операций....
миша1128
04.07.2019 00:10
Часть имени файла указывающая на его тип...
pashacherepano
04.07.2019 00:10
Считая что каждый символ кодируется одним байтом ,определить чему равен иформационный обьём в битах: в шести литрах шесть тысяч миллилитров.ay...
DimaKot2
15.09.2019 09:10
Программа на pascalabc.net + блок схема заполнить двумерный массив случайным образом и найти произведение больших 5 и кратных 3...
yanamalykh
15.09.2019 09:10
Дан массив qwe (20 элементов). заполните его целыми числами в интервале [-5; 18]. найдите произведение нечётных элементов массива....
Aluniy
01.10.2019 13:01
Впроцессе преобразования растрового графического файла количество цветов уменьшилось 256 до 4 во сколько раз уменьшился информационный обьём файла?...
Популярные вопросы
От мотка провода отрезали 2_7 его длены. сколько метров провода отрезали от...
2
Напишите эссэ на тему желательно выбирать стильную одежду или одежду удобную...
2
Что положительного дало древним китайцам объединение страны в единое государство?...
2
№6: the past simple tense. c) раскройте скобки и поставьте глагол в нужную...
1
Письменный ответ на вопрос почему в.белинский назвал онегина эгоистом...
1
Решите уравнение 1.log0,2(x+4)=-2 2.log8(x^2-7x+4)=log8(x-3)...
2
Решить , вначале в баке было налито 50 литров бензина , затем осталось 10 литров....
2
Характеристика реки енисей. 1)где находится исток реки/ 2)какое течение быстрое...
1
Докажите что данное уравнение является уравнением сферы x^2+y^ 2+z^ 2-2x+2z=...
1
Составьте словасочетание: о погоде, при папе, на яблоне, на прогулке, на тарелке,...
2
a, b, i, sum ,k:integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
k:=0;
sum:=0;
for i:=a to b do begin
k:=k+1;
sum:=i+sum;
end;
writeln('Сумма чисел, находящихся в диапазоне от ',a,' до ',b,' = ',sum);
Write('Их кол-во = ', k);
end.