Question

ИНФОРМАТИКА ПАСКАЛЬ ПОЖАЛУЙСТА!!!!!
2 Задания сделать!!!!!

Answer 1

Ответ:

1.

var t1,t2,t3,u1,u2,u3:integer;

begin

write('t1 = ');

readln (t1);

write('u1 = ');

readln (u1);

write('t2 = ');

readln (t2);

write('u2 = ');

readln (u2);

write('t3 = ');

readln (t3);

write('u3 = ');

readln (u3);

if t1*100+u1<t2*100+u2+t3*100+u3 then writeln('Денег не хватает')

else writeln('Сдача ',(t1*100+u1-(t2*100+u2+t3*100+u3))div 100,'р ',(t1*100+u1-(t2*100+u2+t3*100+u3))mod 100,'к')

end.

2.

var s:string;

begin

write('Введите ФИО ');

readln (s);

if s[length(s)]='а' then writeln('Женщина')

else if s[length(s)]='ч' then writeln('Мужчина')

else writeln('Не могу определить ваш пол.')

end.

Объяснение:

Вторая задача выдаёт не 100% результат, т.к. бывают сложные имена. Также важно, чтобы отчество вводилось последним.