Болеслав 27 ноября 2019 в 05:24

Составьте програму, которая запрашивает 3 числа и определяет наименьшее из них.

Program smallest;lt;br /gt;lt;br /gt;var lt;br /gt;a,b,c:integer;lt;br /gt;lt;br /gt;beginlt;br /gt;lt;br /gt;write(введите а: );lt;br /gt;readln(a);lt;br /gt;write(введите b: );lt;br /gt;readln(b);lt;br /gt;write(введите c: );lt;br /gt;readln(c);lt;br /gt;lt;br /gt;if (a - b) gt; 0 then lt;br /gt;beginlt;br /gt;if (a - c) gt; 0 thenlt;br /gt;writeln(a - наибольшее!);lt;br /gt;end;lt;br /gt;lt;br /gt;if (b - a) gt; 0 thenlt;br /gt;beginlt;br /gt;if (b - c) gt; 0 thenlt;br /gt;writeln(b - наибольшее!);lt;br /gt;end;lt;br /gt;lt;br /gt;if (c - a) gt; 0 thenlt;br /gt;beginlt;br /gt;if (c - b) gt; 0 thenlt;br /gt;writeln(c - наибольшее!);lt;br /gt;end;lt;br /gt;lt;br /gt;end.
Для комментирования необходимо зарегистрироваться на сайте