ПредишенСледващото

1) се напише програма, която проверява дали броят е четен или нечетен
2) Добави програма, която проверява дали число 3 влезе от клавиатурата е разделена
3) се напише програма, която определя на билета "щастлив" или не, билет 6-цифрен номер .Bilet е щастлив, ако, ако сумата от първите две числа е равно на сумата от последните три цифри
5) се напише програма, която проверява дали разделена на шест число влезе от клавиатурата
6) се напише програма, която определя дали броят на б, разделен на броя на дели.
7) е дадено цяло число от 4-цифрено число. Разменени цифрите стоят в този брой на различни места, за да се покаже на оригинала и модифицираната броя

Отговори и обяснения

1)))))))))
програма Z;
Var
аз. цяло число;
започвам
Writeln ( "Въведете номер"); Readln (I);
ако аз моден 2 = 0
след това
Writeln ( "четно число)
още
Writeln ( "Числото не е дори");
readln;
край.

2))))))))))))
програма Z;
Var
аз. цяло число;
започвам
Writeln ( "Въведете номер"); Readln (I);
ако аз моден 3 = 0
след това
Writeln ( "Броят се дели на 3 ')
още
Writeln ( "Броят не се дели на 3 ');
readln;
край.

3))))))
програма Z;
Var
I: масив [1..6] на байт;
х: байт;
започвам
за х: = 1 до 6 направи

започвам
Writeln ( "Enter", X ", номер 6 ');
Вижте (I [х]);
приключи;
ако (I [1] + и [2]) = (I [4] + и [5] + и [6])
след това
Writeln ( "щастлив билет")
още
Writeln ( "билет не е щастлив");
readln;
край.

5)))
програма Z;
Var
аз. цяло число;
започвам
Writeln ( "Въведете номер"); Readln (I);
ако аз моден 6 = 0
след това
Writeln ( "Броят се дели на 6 ')
още
Writeln ( "Броят не се дели на 6 ');
readln;
край.
6)))))
програма Z;
Var
А, В: цяло число;
започвам
Writeln ( "Въведете номер A '); Readln (а);
Writeln ( "Въведете броя на B '); Readln (б);
ако б мод а = 0
след Writeln ( "Редица се дели на броя на В ')
друго Writeln ( "Редица не се дели на броя В ');
readln;
край.

Този въпрос архив. Добавяне на нов въпрос

Съмнение в отговора?

Научете повече от знанията!

Вие имате проблем с домашните?
Помолете за помощ!

80% от отговорите идват в рамките на 10 минути

Ние не само отговори, но и да се обясни

Свързани статии

Подкрепете проекта - споделете линка, благодаря!