Составить программу DELPHI, которая вычисляет сумму нечётных чисел отрезка [a,b]. именно delphi!
label 1 -введите А
label 2 -введите B
label 3 -результат
button 1 -вычислить
edit 1 -значение А
edit 2 -значение В

107

130

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

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

superpuper90

Информатика

4,7(86 оценок)

Var a,i: integer; m: real; begin randomize; m: =0; write('получены числа: '); for i: =1 to 3 do begin a: =random(10); write(a,' '); m: =m+a end; writeln; m: =m/3; writeln('их среднее арифметическое равно ',m: 0: 3) end. тестовое решение: получены числа: 5 3 3 их среднее арифметическое равно 3.667 var n: integer; begin write('введите целое число: '); read(n); writeln(n-1,', ',n,', ',n+1) end. тестовое решение: введите целое число: 35 34, 35, 36