Домашние задания: Информатика

Помогите пожалуйста!!! Информатика 10 класс Паскаль

В банке, в целях безопасности, код сейфа меняется еженедельно. Код считается безопасным, если количество четных цифр, входящих в состав кода, превышает количество нечетных цифр. Напишите программу, которая проверяет, удовлетворяет ли введенный код условиям безопасности, чтобы банк мог его использовать. Цифры кода вводятся до тех пор, пока не будет введена цифра 0, которая указывает на конец кода и не является его частью.
Юрий Землянухин
Юрий Землянухин
59
Напишу, пожалуй, при помощи графического модуля (там есть же вывод текста и пр.). Только если Turbo Pascal - там надо инициировать графику, а если а-ля Pascal ABC, то тут проще. Напишу оба варианта:

1) Pascal ABC:

Program Der_code;
uses graphabc;
begin
line (20,50,35,35); line (25,35,25,15);
line (25,15,45,15); line (25,35,45,35);
line (45,50,45,15); line (65,15,85,15);
line (65,50,85,50); line (65,50,65,15);
line (95,50,95,15); line (115,50,115,15);
line (95,15,115,15); line (125,50,125,15);
line (145,50,145,15); line (125,50,145,15);
line (155,15,175,15); line (155,50,175,50);
line (155,50,155,15); line (185,50,185,15);
line (185,50,205,50); line (185,35,205,35);
line (205,50,205,35); line (215,50,215,15);
line (225,50,225,15); line (225,15,243,15);
line (225,50,245,50); line (225,33,245,33);
line (243,15,243,33); line (245,50,245,33);
line (255,50,265,15); line (265,15,275,50);
line (260,33,270,33); line (285,50,285,15);
line (285,33,305,33); line (305,50,305,15);
line (325,50,325,15); line (305,15,325,15);
line (305,50,325,50); line (20,115,20,75);
line (40,115,40,75); line (20,115,40,75);
line (65,115,85,75); line (65,75,85,115);
line (95,115,105,75); line (105,75,115,115);
line (100,100,110,100); line (125,115,125,75);
line (145,115,145,75); line (125,75,135,115);
line (135,115,145,75); line (155,115,165,75);
line (165,75,175,115); line (185,115,185,75);
line (185,95,205,95); line (205,115,205,75);
line (225,115,225,75); line (205,75,225,75);
line (205,115,225,115);
textout (20,125,'Введите код:');
textout (20,135,'Безопасный код: mein Programmierassistent kann die Datei senden');
end.

2) Turbo Pascal:

Program Der_code;
uses graph;
Var D, m : integer ;
begin
D := detect ;
InitGraph ( d, m , 'здесь нужно указать путь к драйверу EGAVGA . BGI '}
line (20,50,35,35); line (25,35,25,15);
line (25,15,45,15); line (25,35,45,35);
line (45,50,45,15); line (65,15,85,15);
line (65,50,85,50); line (65,50,65,15);
line (95,50,95,15); line (115,50,115,15);
line (95,15,115,15); line (125,50,125,15);
line (145,50,145,15); line (125,50,145,15);
line (155,15,175,15); line (155,50,175,50);
line (155,50,155,15); line (185,50,185,15);
line (185,50,205,50); line (185,35,205,35);
line (205,50,205,35); line (215,50,215,15);
line (225,50,225,15); line (225,15,243,15);
line (225,50,245,50); line (225,33,245,33);
line (243,15,243,33); line (245,50,245,33);
line (255,50,265,15); line (265,15,275,50);
line (260,33,270,33); line (285,50,285,15);
line (285,33,305,33); line (305,50,305,15);
line (325,50,325,15); line (305,15,325,15);
line (305,50,325,50); line (20,115,20,75);
line (40,115,40,75); line (20,115,40,75);
line (65,115,85,75); line (65,75,85,115);
line (95,115,105,75); line (105,75,115,115);
line (100,100,110,100); line (125,115,125,75);
line (145,115,145,75); line (125,75,135,115);
line (135,115,145,75); line (155,115,165,75);
line (165,75,175,115); line (185,115,185,75);
line (185,95,205,95); line (205,115,205,75);
line (225,115,225,75); line (205,75,225,75);
line (205,115,225,115);
textout (20,125,'Введите код:');
textout (20,135,'Безопасный код: mein Programmierassistent kann die Datei senden');
end.
Sasha Alex
Sasha Alex
43 559
Лучший ответ
Странные критерии безопасности, однако! 122 - хороший код!
AS
Aigerim Sadenova
38 285

Похожие вопросы