a: array [1..20] of 2..5; //Массив оценок учеников
i: integer;
n: array [2..5] of 2..5; //Массив счетчиков оценок
begin
for i:= 2 to 5 do //Обнуляем счетчики оценок
n[i]:= 0;
for i:= 1 to 20 do //Вводим оценки учеников и считаем их
begin
writeln('Введите оценку ', i, ' ученика');
readln(a[i]);
if a[i] = 2 then n[2]:= n[2] + 1;
if a[i] = 3 then n[3]:= n[3] + 1;
if a[i] = 4 then n[4]:= n[4] + 1;
if a[i] = 5 then n[5]:= n[5] + 1;
end;
for i:= 2 to 5 do
writeln('Количество получивших ', i, ' за диктант равно: ', n[i]); {Выводим значения счетчиков}
end.
3) Program zada4a3;
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var n:=Random(-100,100);
Writeln('В числе ',n,' количество разрядов равно ',
abs(n).ToString.Length)
end.
Тестовое решение:
В числе -40 количество разрядов равно 2
2. Школьный вариант (понятный большинству учителей)
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
var
n,k:integer;
begin
Randomize;
n:=Random(201)-100;
k:=1;
Write('В числе ',n,' количество разрядов равно ');
n:=abs(n);
while n>0 do begin
n:=n div 10;
if n>0 then Inc(k)
end;
Writeln(k)
end.
Тестовое решение:
В числе -5 количество разрядов равно 1