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.
Ответ дал: Гость
program xxx;
var s : string;
а : integer;
begin
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
end.
Ответ дал: Гость
революция 1917 года и великая отечественная война (1941-1945)
Популярные вопросы