Так и будет: 480х272 = 130560 штук
Program ABC;
Uses CRT;
var
a,b:real;
c:char;
begin
ClrScr;
repeat
Writeln('la-la-la');
Write('Если хотите вычислить сумму, то нажмите С,');
Writeln(' произведение- D, операцию деления -E ');
Writeln('Для завершения работы нажмите Q');
c:=ReadKey;
case c of
'C','c':begin
Write('Сложение: введите слагаемые: '); Read(a,b);
Writeln('Сумма равна ',a+b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'D','d':begin
Write('Умножение: введите сомножители: '); Read(a,b);
Writeln('Произведение равно ',a*b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'E','e':begin
Write('Деление: введите делимое и делитель: '); Read(a,b);
Writeln('Частное равно ',a/b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'Q','q':;
else begin
Writeln(#13#10,'Error, please enter C, E or D',#13#10);
end
end;
until c in ['Q','q'];
Writeln('Ждем Вас снова!');
Readkey
end.
Все просто, код в скриншоте и в прикрепленном документе (переименуйте на main.py, сайт файлы с расширением <em>*.py</em> ещё не сапортит).
Если есть вопросы - пишите в коменты.
(Да это вся программа.)
Спасибо за отметку "лучший ответ" и нажатую кнопочку "спасибо":
- На этом ответе
- В моем аккаунте
1. Поиск подстроки в строке, возвращает порядковый номер первого символа подстроки в строке
2. Определение длины строки
3. Выбор части строки по заданным порядковым номерам символов
<span>4. Конкатенация (объединение) строк </span>