uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); readln; end.
Ответ дал: Гость
program first;
var z,d,k: integer;
begin
writeln('input z,d,k');
readln(z,d,k);
if (d> =z) then
d: =d-z
k: =k+1
writeln(d,' ',k);
readln;
end.
Ответ дал: Гость
1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского
2)все великие писатели в своё время переносили критику,но это делало их только сильнее.
Популярные вопросы