Написать программу в pascal. найдите сумму всех целых чисел [a; b]заранее .

104

400

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

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

6603673

Информатика

4,4(16 оценок)

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin var a,b: integer; read(a,b); writeln('s=',range(a,b).sum) end. пример 8 42 s=875

dashaponomarev4

Информатика

4,8(8 оценок)

Var a,b: integer; s: real; begin s: =0; write('a = '); readln(a); write('b = '); readln(b); for b: = a to b do s: =s+b; writeln('s = ',s); end.

dabushov95

Информатика

4,4(59 оценок)

Uses crt; var x1,y1, x2,y2, r: real; begin // начало программы clrscr; // очистка экрана write('x1='); readln(x1); // ввод х1 write('x2='); readln(x2); // ввод х2 write('y1='); readln(y1); // ввод у1 write('y2='); readln(y2); // ввод у2 r: =sqrt(sqr(x2-x1)+sqr(y2-y1)); // вычисление расстояния между точками writeln('r=',r: 5: 3); // вывод результата readkey; // ожидание нажатия клавиши end.