фон- основной цвет
ЭКОНОМИЧНОСТЬ — одна из основных составляющих успеха хозяйственной деятельности, суть которой заключается в разумной и рациональной экономии
ЭРГОНОМИКА-Научно-практическая дисциплина, изучающая трудовые процессы с целью создания оптимальных условий труда росту его производительности.
Программи́ст — специалист, занимающийся программированием, то есть созданием компьютерных программ.
Пользователь — лицо или организация, которое использует действующую систему для выполнения конкретной функции.
цвет-окраска
программа-Изложение содержания и цели деятельности политической партии, организации или отдельного деятеля.
дизайн-Художественное конструирование предметов быта, интерьеров, промышленных изделий и т. п.
проект-Разработанный план сооружения, устройства чего-н.
меню-Подбор кушаний, а также листок с перечнем их.
качество-Наличие существенных признаков, свойств, особенностей, отличающих один предмет или явление от других.
диалог-литературная или театральная форма устного или письменного обмена высказываниями между двумя и более людьми
интерфейс-граница между двумя функциональными объектами, требования к которой определяются стандартом;
звук-Воспринимаемое слухом физическое явление, порождаемое колебательными движениями частиц воздуха или другой среды.
// 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.
Пример в приложении.
