1.даны два целых числа a и b (a < b ). найти сумму всех чисел от a до b включительно. 2. даны два целых числа a и b (a < b, a > 0). найти произведение всех чисел от a до b включительно. 3. дан массив целых чисел х. найти сумму квадратов всех чисел. 4. дан массив целых чисел х. найти количество отрицательных элементов массива. 5. дан массив целых чисел х. найти максимальный элемент массива.

Ответы

Ответ дал: MiFanMF

1. program suma; var a, b, sum, i: integer; begin read(a); read(b); for i: =a to b do sum: =sum+i; write(sum); end. 2. program multip; var a, b, m, i: integer; begin m: =1; read(a); read(b); for i: =a to b do m: =m*i; write(m); end. 3. program suma2; var a: array [1..5] of integer; i, sum: integer; begin for i: =1 to 5 do read(a[i]); for i: =1 to 5 do sum: =sum + a[i] * a[i]; write(sum); end. 4. program cnt_nopos; var a: array [1..5] of integer; i, cnt: integer; begin for i: =1 to 5 do read(a[i]); for i: =1 to 5 do if a[i] < 0 then inc(cnt); write(cnt); end. 5. var a: array [1..5] of integer; i, max: integer; begin for i: =1 to 5 do read(a[i]); max: =a[1]; for i: =1 to 5 do if a[i] > max then max: =a[i]; write(max); end.

Спасибо

Ответ дал: Гость

program xxx;

var a, b, s : real;

r, p, d : real;

begin

write ('введите певрое число- ');

readln (a);

write ('введите второе число- ');

readln (b);

s: = a+ b;

r : = a - b;

p : = a* b;

d : = a/b;

writeln ('сумма =', s);

writeln ('разность =', r);

writeln ('произведение =', p);

writeln ('частное = ', d);

readln

end.

Ответ дал: Гость

5.5 8.8 9.8 11.6 12.7 11.7 11.2 9.3 10.3 10.4 7.4 7.2 5.2 5.3 6.3 6.9 7.8 2.8 2.9 3.9 3.6 4.5 а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д если единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011 8+0+2+1=11 1000 8+0+0+0=8 111 4+2+1=7 11 2+1=3 10 2+0=2 10011101 128+0+0+16+8+4+0+1=157 а твои числа все в уме считаются.проверь может я ошиблась где нибудь)