Question

(турбо паскаль) задача: запрашивает мое фамилию имя, фамилию имя друга, выдать фразу кто по списку в журнале раньше. помогите пожалуйста очень нужно, заранее спасибо!

Answer 1

//Pascal ABC.NET v3.0 сборка 1111
var
 s1,s2:string;
 c1,c2:char;
begin
 writeln('Enter your name:');
  readln(s1);
  c1:=s1[1];
 writeln('Enter friend name:');
  readln(s2);
  c2:=s2[1];
 if c1>c2 then writeln('You') else writeln('Friend');
end.

Пример работы:
Enter your name:
Глеб
Enter friend name:
Юлия
Friend

Answer 2

Конечно, я могу помочь с написанием программы на Turbo Pascal для решения данной задачи. Вот пример кода:

scssCopy code
program Journal;

var
  name1, name2: string;

begin
  writeln('Введите ваше имя и фамилию: ');
  readln(name1);
  writeln('Введите имя и фамилию вашего друга: ');
  readln(name2);
  
  if name1 < name2 then
    writeln(name1, ' в журнале раньше, чем ', name2)
  else if name1 > name2 then
    writeln(name2, ' в журнале раньше, чем ', name1)
  else
    writeln('Вы и ваш друг имеете одинаковое место в журнале');
  
  readln;
end.

Эта программа запрашивает ваше имя и фамилию, а затем имя и фамилию вашего друга. Затем программа сравнивает имена и выводит сообщение о том, кто раньше в списке журнала. Если имена одинаковые, то программа сообщает, что вы и ваш друг имеете одинаковое место в журнале.