Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Такого адресата не существует.
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
на pascal:
program sonik;
uses crt;
var a,b,c: string;
begin
readln (a); readln (b); readln (c);
writeln (' фигуры: ',a,b,c);
end.
Популярные вопросы