Ответ:
uses GraphABC;
var
a: boolean;
begin
SetBrushColor(clBlue);
SetGradientBrushSecondColor(clRed);
SetPenMode(2);
FillRect(100,100,300,300);
end.
Объяснение:
Var
i,k,n1,n2:integer;
begin
n1:=0; n2:=0;
Write('Введите 5 натуральных чисел: ');
for i:=1 to 5 do begin
Read(k);
if k mod 2<>0 then Inc(n1);
if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
end;
Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.
<u>Пример</u>
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2
Из целого бидона в 8 литров переливаем в 5 литровую, получаем 3 литра в 8 литровой бутылке и 5 литров в 5 литровой и 0 в трехлитровой
Из 5 литрового бидона переливаем 3 литровый, получаем 3 литра в 8 литром бидоне, 2 литра в 5 литровом бидоне и 3 литра в 3 литровом бидоне
Затем из 3 литрового бидона переливаем в 8 литровый бидон 3 литра, получаем 6 литров в 8 литровом бидоне, 2 литра в 5 литровом и 0 в 3 литровом
Затем из 5 литрового переливаем в 3 литровый бидон 2 литра, получаем 6 литров в 8 литровом бидоне, 0 в 5 литровом бидоне и 2 в 3 литровом бидоне
Из 8 литрового бидона переливаем 5 литров в 5 литровый бидон, получаем 1 литр в 8 литровом бидоне, 5 литров в 5 литровом бидоне, 2 литра в 3 литровом бидоне
Переливаем из 5 литрового бидона в 3 литровый бидон 1 литр (там уже есть 2), получаем 1 литр в 8 литровом бидоне, 4 литра в 5 литровой банке и 3 литра в 3 литровом бидоне
Переливаем из 3 литрового бидона в 8 литровый бидон 3 литра, получаем 4 литра в 8 литровой бидоне и 4 литра в 5 литровом бидоне
В виде цифровой таблицы*
8 5 3
8 0 0
3 5 0
3 2 3
6 2 0
6 0 2
1 5 2
1 4 3
<span>4 4 0 </span>