//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 a,b,c,s:real;
begin
writeln('a, b, c:');
readln(a,b,c);
s:=(a+b)/2*sqrt(c*c-sqr(a-b)/4);
writeln('s = ',s:5:3);
end.
Пример:
a, b, c:
5 3 4
s = 15.492
25-5=20 человек умеют играть во что-то
20=20 то есть все оставшиеся умеют играть в шахматы
так как 18 человек играют в шашки, то они играют и в шахматы, ведь все оставшиеся умеют играть в шахматы
Ответ: 18.
Например арбуз-1 16 2 19 9
Объём памяти = 1280*1024*32 = 41943040 бит
41943040 бит / 8 = 5242880 байт
5242880 байт / 1024 = 5120 Кбайт
5120 Кбайт / 1024 = 5 Мбайт