Есть ответ 👍

Как в ворде в кругах эйлера венна сделать запись

183
230
Посмотреть ответы 3

Ответы на вопрос:


  заходишьв встаку  заходишь в фигуры и ищешь круги и делаешь схему которая нужна

1.нажимаете "вставить" 2.выбираете " надпись" и пишите, что вам нужно

var

    a, chet, nechet : integer;

   

begin

    write('введите число: ');

    readln(a);

    while a > 0 do begin

        if (a mod 10) mod 2 = 0then chet += 1
else nechet += 1;

        a : = a div 10;

    end;

    writeln('четных: ', chet);

    writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. если нужно что бы 0 не
учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 < > 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

Популярно: Информатика