//PascalABC.Net 3.1.0.1200
uses System;
var
title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');
begin
writeln('Введите оценки');
var marks := new Dictionary<integer, integer>();
repeat
var n := ReadInteger();
if (n > 5) or (n < 2) then continue;
if marks.ContainsKey(n) then
marks[n] += 1
else marks.Add(n, 1);
until marks.Values.Sum >= 10;
for var i := 2 to 5 do
writeln(title[i], ': ', marks[i]);
end.
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.
var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
Cin >> a;
if(a<10)
{
a /= 2 ;
cout << a;
}
else
cout << "Число не верно" ;