В среде программирования FreePascal составить программу для нахождения суммы последовательности чисел произвольного диапазона. Проверить работу
5-9 класс
|
программы для чисел от 5 до 12
var i,d,a,b: integer;
begin
cls;
writeln('введите кол-во чисел');
readln(a,b);
d:=1;
for i:=a to b do d:=d+1;
writeln('cумма=',d);
end.
забивай числа 5 и 12 их сумма будет равняться 9
Ставь лучшее решение мне их 2 осталось
Другие вопросы из категории
mas[1]:=12;
mas[2]:=43;
mas[3]:=48;
mas[4]:=56;
mas[5]:=76;
mas[6]:=73;
mas[7]:=36;
mas[8]:=96;
mas[9]:=69;
mas[10]:=25;
k:=0;
m1:=mas[1] div 10 - mas[1] mod 10;
for i:=2 to 10 do begin
m2:=mas[i] div 10 - mas[i] mod 10;
if m1 > m2 then begin
m1:=m2; k:=i;
end;
end;
write(k);
end.
А)клавиатура-микрофон
Б)река-Днепр
В)болт-чертеж болта
Г)мелодия-нотная запись мелодии
Д)весна-лето
Программа Паскаль. Тема- цикл с пред условием .
СРОЧНО:)
Читайте также
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
четверти пассажиров имеют билеты первого класса, стоимостью Х рублей за каждый. Остальные пассажиры имеют билеты второго класса, которые дешевле на 20%
2.Составьте программу определения стоимости набора конфет, в которой находятся следущие сорта:
Наименование: Количество: Цена,руб:
Красная шапочка 500 г k
Алые паруса 200 г a
Воронежские 100 г b
Чародейка 250 г m