Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.

0 0

4 года назад

Составить программу:Дана ведомость из 10 записей: фамилия и 3 оценки. Найти среднее арифметическое и округлить.

Наташа попова

В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок

0 0

4 года назад

Помогииитее молю оочень надо

Valera800 [126]

№9
услуги компьютерной сети-это прием и передача сообщений с помощью электронной почты.
Сервер — это компьютер, который обслуживает компьютерную сеть

0 0

4 года назад