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
используем круги Эйлера(см. вложение)
Ответ: 100 страниц
Ответ: 1) Узел 1 Узел 2 Узел 3 Узел 4
Канал 1 Канал 2 Канал 3
P -> -> -> P
2) Шифр
3) Скитала
4) Шифр простой замены, простой подстановочный шифр, моноалфавитный шифр (пример: шифр-алфавит: А - 33; Б - 17; В - 8; Г - 16; Д - 2; Е - 15; Ё - 14; Ж - 13; З - 12; И - 98; Й - 10; К - 97; Л - 96; М - 24; Н - 0; О - 11; П - 5; Р - 25; С - 7; Т - 3; У - 64; Ф - 26; Х - 66; Ц - 69; Ч - 4; Ш - 6; Щ - 36; Ь - 21; Ъ - 22; Ы - 23; Э - 37; Ю - 39; Я - 18.)
Объяснение:
Жмёшь в левом верхнем углу файл (сохранить
Uses crt;
var a,b,c,i,i_:integer;
begin
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
write('Введите 3 число: ');
readln(c);
i:=a+b+c;
i_:=a*b*c;
writeln('Сумма: ',i);
writeln('Произведение: ',i_);
<span>end.</span>