2015-10-22
2411. Вивчити команди і послідовність дій.
2. Ознайомитись з «меню», вивести підказки і вивчити їх.
3. Створити файл з текстом запропонованої програми, виконати компіляцію і запустити на виконання.
4. Виконати редагування програми, замінивши в ній запропоноване ім'я «Оля» на своє, а також код, який дорівнює числу (день народження) помноженому на 100 плюс номер в списку групи (наприклад 21x100+12=2112).
5. Виконати компіляцію і запустити на виконання відредаговану програму (виправити помилки в програмі, якщо вони виникли).
Програма на Turbo Pascal
Program demi;
Var
Cod: integer;
Name: string;
Begin
Writeln(' Введіть код:');
Readln(Cod);
If (cod<>711) then
Begin
Writeln(' Неправильно говориш...');
Readln;
Halt;
End;
Writeln(' вгадали пароль.');
Writeln('Введіть своє ім'я ');
Readln(Name);
If (Name<>'Кaтя') and (Name<>'Денис') then
Begin
Writeln(' Неправильно!!! ');
Readln;
Halt;
End;
Writeln('Ви вгадали пароль і ваше ім'я не знаходиться у "чорному списку"'); Readln;
End.
Результати розрахунків
7х100+11=711
