Помогите пожалуйста написать программу в Pascal ;(
Напишите программу, запрашивающую пин-код для банковской карты в виде четырехзначного числа.
Считая, что в правильном пин-коде сумма первых двух цифр должна равняться сумме двух последних, выводя в случае ввода неправильного пин-кода соответствующее сообщение.
Ответы
Ответ дал:
1
Ответ:
pascal
Объяснение:
program pincode;
var
pin: integer;
begin
repeat
Write('Введите PIN-код: ');
ReadLn(pin);
until (length(inttostr(pin)) = 4);
if (pin div 1000 + (pin mod 1000) div 100) = ((pin mod 100) div 10 + pin mod 10)
then WriteLn('PIN-код верен!') else WriteLn('PIN-код неверен!');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад