Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Выбор Тематики
Идея
Материал
Поиск информации
Оформление
Печать
Найдем, чему будет равно максимальное трехзначное число в системах счисления, начиная с двоичной.
MAX(2)=2^3-1=7
MAX(3)=3^3-1=26
MAX(4)=4^3-1=63.
Поскольку 63>30, то число 30 представимо в системе счисления по основанию 4 тремя или менее разрядами. Осталось проверить, не будет ли оно двухзначным. Минимальное трехзначное число в четверичной системе равно 4^2=16, что меньше 30, следовательно для записи числа 30 потребуется три разряда.
Окончательно: основание системы счисления равно 4.
<u>// PascalABC.NET </u>
<span><u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u></span>
begin
Print('Введите координаты вектора a:');var a := ReadArrInteger(8);
Print('Введите координаты вектора b:');var b := ReadArrInteger(8);
Println('Произведение:', Range(0, 7).Select(t -> a[t] * b[t]).Sum);
end.
<u>Пример:</u>
Введите координаты вектора a: 1 4 2 3 4 5 7 2
Введите координаты вектора b: 1 4 2 4 5 3 1 4
Произведение: 83