Снаписанием программ по паскалю. надо вывести на экран свою фамилию, имя и отчество, а через две строки-дату своего рождения.

209

302

Посмотреть ответы 2

Ответы на вопрос:

27sergey1

Информатика

4,4(63 оценок)

var a,b: string;

begin

writeln('введите ваши фио');

readln(a);

writeln('введите вашу дату рождениея');

readln(b)

writeln(a);

writeln(b);

readln;

end.

МинаМина2003

Информатика

4,7(12 оценок)

Var s,p1,p2: string; a: array['a'..'z'] of byte; n,i,j,f: integer; c,sim: char; begin readln(n); readln(s); for c: ='a' to 'z' do a[c]: =0; for i: =1 to length(s) do a[s[i]]: =a[s[i]]+1; p1: =''; p2: =''; f: =0; for c: ='a' to 'z' do begin for j: =1 to a[c] div 2 do begin p1: =p1+c; p2: =c+p2; end; if (a[c] mod 2=1)and(f=0) then begin sim: =c; f: =1; end; end; if f=1 then p1: =p1+sim; p1: =p1+p2; writeln(p1); end. пример: 6 qazqaz aqzzqaps. программа проверялась только для коротких (string) строк. для длинных нужно использовать ansistring.