Решить в pascal abc с ! организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. после ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Var A,n:integer; S:real; Begin S:=0; n:=0; Read(A); While A<>0 do Begin n:=n+1; S:=S+A; Read(A); End; WriteLn('S = ',S); WriteLn('n = ',n); WriteLn('Sr = ',S/n); End.
1. Var a,b,pr:integer; Begin pr:=1; write('Вводите числа, когда закончите - введите 0. '); readln(a); while (a<>0) do begin if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end; Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2. Var a,b,c,i,sum,f:integer; Begin Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100); for i:=1 to 10 do begin repeat readln(a); until(a>=10) (a<100) b:=a mod 10; c:=a div 10; sum:=b+c; if (sum mod 2 = 0) then f:=f+1; end; Writeln('Кол-во цифр, удовлетворяющих условию: ',f); end.
3. Var a,b,c:integer; Begin write('Вводите целые положительные числа.'); repeat readln(a); b:=b+a; c:=c+1; until (b>100); Writeln('Кол-во введёных чисел:',c,' их сумма:',b); end.
Давай попробуем рассуждать логически. Если бы сад состоял из двух деревьев, то было бы два варианта садов: 100+99 и 100+101. Если бы досадили третье дерево, то каждый из предыдущих садов удвоил бы число вариантов: первый 100+99+98 и 100+99+100, и так же второй 100+101+100 и 100+101+102. Подмечаем закономерность: каждое добавляемое дерево удваивает количество вариантов. А сад из одного дерева имеет лишь один вариант.
A,n:integer;
S:real;
Begin
S:=0;
n:=0;
Read(A);
While A<>0 do
Begin
n:=n+1;
S:=S+A;
Read(A);
End;
WriteLn('S = ',S);
WriteLn('n = ',n);
WriteLn('Sr = ',S/n);
End.