Задача 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 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.
Перепишите программу оптимальным образом.
program project1; var s: integer; begin writeln ('Vvedite chislo 1 ili 5'); readln(s); if (s = 1) then writeln('soobchenie 1') else if (s = 5) then writeln('soobchenie 2'); readln(); end.
- Log in to post comments
- 929 reads