uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;
begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin
if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.
А = 10
В = 20
1. Подставляем числа в следующее уравнение
А = -В * В / А
А = -20 * 20 \ 10 = -40
2. Далее идет разветвление алгоритма, выполняем уравнение:
А > B
-40 > 20
3. Поскольку у нас А меньше В, то выполняем команду:
С = 2 * А - В
С = 2 * -40 - 20 = -100
Ответ : С:=(-100)
P.S. Странно получается, у тебя там на схеме, нету стрелочки от последнего пункта до первого?