BelozerovaGeller648
?>

Дано четырёхзначное число n. проверить, будет ли сумма его цифр чётным числом

Информатика

Ответы

novocherkutino7
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Popova-Erikhovich
Program q;
    var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
    randomize;
    for i:=1 to 7 do begin;
        for k:=1 to 7 do begin;
            a[i,k]:=random(-10,10);
            if a[i,k] mod 2 = 1 then odd+=1;
        end;
    end;
    min7:=a[1,7];
    for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
    for i:=1 to 7 do sum1+=a[i,1];
    for i:=1 to 7 do avg5+=a[5,i];
    avg5/=7;
    for i:=1 to 7 do a[1,i]:=1;
    write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
info2471
Enter - ввод. Она предназначена для того, чтобы опускать текст ниже и переходить на следующую строку.
shift обычно используется для написания заглавных букв.
Кнопка Delete служит для удаления. 
esc Полное ее название Escape (произносится «Эске́йп») и означает она «Выход». При этой кнопки мы можем закрыть некоторые программы. В большей степени это касается компьютерных игр. 
Кнопка Insert нужна для того, чтобы печатать текст поверх уже напечатанного. Если Вы нажмете на эту клавишу, то новый текст будет печататься, стирая старый. Чтобы это отменить, нужно снова нажать на клавишу Insert.
Backspace — клавиша на клавиатуре компьютера, служащая для удаления символа (символов), находящегося перед курсором (слева при направлении письма слева направо или справа при направлении справа налево). Вне области набора текста ← Backspace часто служит для возврата на предыдущий экран программы или веб-страницу в браузере.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дано четырёхзначное число n. проверить, будет ли сумма его цифр чётным числом
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kochetova92
vasilevich-F
maslprod
Allahverdi_Мария475
Natalya1895
Yevsyukov1697
Vladimir1172
Николаевич1033
lobanosky162
Alyona
info40
Reginahappy
Isaeva_Marin1010
morozov1605
Ruslan Zarekovkin