Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,c,d: integer;
begin
writeln ('vvedite a');
read(a);
writeln ('vvedite b');
read(b);
writeln ('vvedite c');
read(c);
writeln ('vvedite d');
read(d);
if (a> b) and (a> c) and (a> d) then writeln('samoe bolshoe chislo - a')
else writeln('a ne samoe bolshoe');
end.
а) наименование товаров, цена за единицу товара, количество каждого товара
б) общая сумма покупки, сумма денег переданная продавцу
в) программа телепередач, название фильма
г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)
ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
if a> b then max: = a
else max: =b;
end;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
Популярные вопросы