Var a,b,c:real;beginWrite('Введите первое число:');readln(a);Write('Введите Второе число:');readln(b);Write('Введите Третье число:');readln(c);if (a>b) and (a>c)then Writeln('ответ:',a)elseif (b>a) and (b>c)then Writeln('ответ:',b)elsewriteln('ответ:',c);
readln;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
