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
Другое название жёсткого диска -"винчестер" Ещё его называют "железка"
Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон
А) музыкант, карандаш, музыка. б) выполняет команды, носитель информации, передает звук.
<u>Задание 1</u><em>(Это чо за тупая тварь придумала, что после деления натуральных чисел может быть остаток? передай всем что они там мудаки)</em>
program day;
var c,a,b:real;
Begin
Readln(a,b);
if a>b
then begin c:=a/b;
writeln('результат ',c:0:0);
end
else writeln('a не должно быть больше b');
<span>end.</span>