Задача 6 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:1)С использованием логической операции and.
2)С вложенными блоками (без and, все опараторы if должны быть в полной форме).
3)Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
var a,b,c: integer; begin writeln('Vvedite chisla A, B, C: '); writeln('Vvedite A: '); readln (a); writeln('Vvedite B: '); readln (b); writeln('Vvedite C: '); readln (c); write ('Max:'); if ( a > b ) and ( a > c ) then writeln(a) else writeln(c); if (b > c) then writeln(b) else writeln(c); readln (); end.
var a,b,c, max: integer; begin writeln('Vvedite chisla A, B, C: '); writeln('Vvedite A: '); readln (a); writeln('Vvedite B: '); readln (b); writeln('Vvedite C: '); readln (c); if ( a > b ) then if ( a > c ) then writeln (a) else writeln(c) else if (b > c) then writeln(b) else writeln(c); readln (); end.
var a,b,c, max: integer; begin writeln('Vvedite chisla A, B, C: '); writeln('Vvedite A: '); readln (a); writeln('Vvedite B: '); readln (b); writeln('Vvedite C: '); readln (c); if ( a > b ) then max := a else max :=b; if (max < c) then max := c; writeln('max:',max); readln (); end.
- Log in to post comments
- 2301 reads
vedro-compota
Sat, 03/19/2022 - 20:49
Permalink
var
-- неверно, проверить. Остальное засчитано
_____________
матфак вгу и остальная классика =)
lorn
Sat, 03/26/2022 - 14:38
Permalink
a,b,c: integer;
vedro-compota
Wed, 03/30/2022 - 19:58
Permalink
Неоптимательное количество
Неоптимательное количество сравнений -- проверить с учетом разбора задачи 11 ("Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5.... ") http://fkn.ktu10.com/?q=node/8539
_____________
матфак вгу и остальная классика =)
lorn
Sat, 04/09/2022 - 17:31
Permalink
correct
vedro-compota
Sat, 04/09/2022 - 20:27
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)