1-2. Напишите программу, в которой осуществляется ввод любых целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчëт суммы и среднего арифметического всех введённых чисел. Сначала запишите эту программу с оператором repeat, а затем с оператором while:
while <условие>do
begin
<серия команд
end:
while <yсловие>do
begin
серия команд>
end;
3. Напишите программу, в которой осуществляется ввод любых целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и вычисление суммы всех чётных чисел из ведённых. Запишите эту программу с оператором repeat или с оператором
Программа:
Pascal:
№1)
var sum, j, k: integer;
begin
readln(j);
while j <> 0 do begin
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
end;
writeln(sum/k);
end.
№2)
var sum, j, k: integer;
begin
readln(j);
repeat
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
until j = 0;
writeln(sum/k);
end.
№3)
3.1) var sum, j: integer;
begin
readln(j);
repeat
if j mod 2 = 0 then sum += j;
readln(j);
until j = 0;
writeln(sum);
end.
3.2) var sum, j: integer;
begin
readln(j);
while j <> 0 do begin
if j mod 2 = 0 then sum += j;
readln(j);
end;
writeln(sum);
end.