Ответ:
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% результат, т.к. бывают сложные имена. Также важно, чтобы отчество вводилось последним.
Массив это можно сказать тоже самое что и переменная , но массив отличается от переменной тем , что если переменная хранит одно значение , то в свою очередь массив хранит несколько значений. Нужно из массива А вытащить значения, сравнить их if (первое значение) > (второго значегия) то выводишь первое значение , иначе выводишь второе значение , блин я в бэйсике 0, на pho пример :
<?php
$array = array(
"a" => "8",
"b" => "4"
);
If($array["a"] > $array["b"]){
echo array["a"];
else{echo array["b"];}
?>
Program Question;
var
nameF, nameS, rels :string;
Begin
Write('Введите первое имя: ');
Readln(nameF);
Write('Введите второе имя: ');
Readln(nameS);
Write('Введите отношения: ');
Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End
N = 10 ** 9 + 13
d = 2
while n % d != 0:
d += 1
<span>print(d)</span>
<span>Ответ: 7699</span>
Var a, b, c, d: Integer;
t_a, t_b, t_c, t_d: Integer; {данные переменные будут использоваться для хранения изначальных значений a, b, c, d}
begin
ReadLn(a, b, c, d);
t_a := a;
t_b := b;
t_c := c;
t_d := d;
d := t_c+t_b;
a := t_b;
b := t_c;
c := t_d;
end.