Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var s : string;
а : integer;
begin
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
end.
vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.
101110, 101111. в десятичной эти числа равны 46 и 47.
иванов - парикмахер
петров - плотник
сидоров - мельник
гришин - почтальон
алексеев маляр
Популярные вопросы