// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
var c, w: integer;
procedure check;
begin
var (a, b) := (Random(0, 20), Random(0, 20));
Print($'{a}*{b}=');
if a * b = ReadInteger then begin inc(c); Println('Правильно') end
else begin inc(w); Println('Неправильно') end;
end;
procedure res;
begin
Println($'Задано вопросов {c+w}');
Println($'Правильных {c}({(c*100)/(c+w):f1}%)');
Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');
end;
begin
var start := true;
while start do
begin
Println('Проверим?(0/1)');
if ReadInteger = 0 then
begin start := false; res; end
else check;
end;
end.
Пример в приложении.
Сегодня уже невозможно представить себе современную медицину без использования компьютеров, так как они являются неотъемлемым рабочим инструментом в различных сферах медицинской деятельности. Внедрение компьютерных технологий в медицину обеспечило высокую точность и скорость проведения различных исследований и медицинских осмотров.
Благодаря медицинским базам данных человека медицинские специалисты могут всегда находиться в курсе современных достижений науки. Сегодня компьютерные сети широко применяются с целью обмена информацией о донорских органах, в которых нуждаются критические пациенты, которые ожидают трансплантации.
Это лишь несколько частных примеров использования компьютеров в медицине, а если копнуть глубже, можно увидеть, что использование компьютерной техники играет важнейшую роль в медицинских исследованиях. С компьютеров можно изучать возможные последствия ударов для позвоночника и черепа человека при автомобильных катастрофах.
Надеюсь это на 5
