СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ...

0 голосов
221 просмотров

СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....

Пожалуйста


Информатика (12 баллов) | 221 просмотров
0

На Паскале?

Дан 1 ответ
0 голосов

1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (ye:= (zif e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (xif (yif (zend.

(133 баллов)
0

Вот так.