a,b,c,min: integer; begin writeln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); end.
Ответ дал: Гость
32 - вопроса, 32 - ответа
Ответ дал: Гость
var
s: string;
i: longint;
begin
readln(s);
for i: =1 to length(s) div 2 do write(s[i]);
end.
Ответ дал: Гость
если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.
если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной
Популярные вопросы