Задача 9 Урок 9
Primary tabs
Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer; begin writeln('Vvedite chislo 1 ili 5'); readln(s); if (s = 1) then writeln('soobchenie 1'); if (s = 5) then writeln('soobchenie 2'); readln(); end;
-- но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.
Перепишите программу оптимальным образом.
var s:integer; begin writeln('Vvedite chislo ot 1 do 5: '); readln(s); writeln(); if (s=1) then writeln ('Soobshenie 1') else writeln ('Soobshenie 2'); readln(); end.
- Log in to post comments
- 1537 reads
vedro-compota
Sun, 08/08/2021 - 12:05
Permalink
программы должны работать
программы должны работать одинаково
_____________
матфак вгу и остальная классика =)
exotick777
Sun, 08/08/2021 - 16:08
Permalink
Исправлено
Исправлено