Регистрация
katiaefimova
11.02.2022 19:24
Информатика
Есть ответ 👍

Напишите функцию которая вычисляет сумму чисел от a до b

215
353
Посмотреть ответы 3

Ответы на вопрос:

катя7354
катя7354
4,5(18 оценок)
// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! function sumab(a,b: integer): =range(a,b).sum; begin // тестирование   var a,b: integer; read(a,b);   writeln('сумма от ',a,' до ',b,' равна ',sumab(a,b)) end. пример 13 58сумма от 13 до 58 равна 1633 как вариант, можно воспользоваться формулой суммы арифметической прогрессии. function sumab(a,b: integer): =(a+b)*(b-a+1) div 2;
serjo1216
serjo1216
4,4(70 оценок)
Function isch(a,b: integer): integer; var i,sum: integer; begin sum: =0; for i: =a to b do sum: =sum+i; isch: =sum; end;
ЯГовн0
ЯГовн0
4,5(1 оценок)
Function check(a,b : integer) : boolean; begin   if a> 0 then check: =((a mod 10)=b)or check(a div 10,b) else check: =false; end; var n,k : integer; begin   readln(n);   readln(k);   writeln(check(n,k)); end. результат: 1234 3 true

Популярно: Информатика