type Man = record
name: String;
surname: String;
date: record
day: Integer;
month: Integer;
year: Integer;
end;
end;
var people: Array [1..100] of Man;
i,n,_year: Integer;
_name: String;
begin
Write('Enter number of man: ');
ReadLn(n);
for i := 1 to n do
With people[i] do
begin
WriteLn('Man[',i,']:');
Write('Enter name: ');
ReadLn(name);
Write('Enter surname: ');
ReadLn(surname);
Write('Enter birthday Day/Month/Year: ');
ReadLn(date.day, date.month, date.year);
WriteLn;
end;
Write('Enter year: ');
ReadLn(_year);
for i := 1 to n do
With people[i] do
if (date.year = _year) then
WriteLn('Name: ',name,' Surname: ',surname);
WriteLn;
Write('Enter name: ');
ReadLn(_name);
for i := 1 to n do
With people[i] do
if (name = _name) then
begin
Write(surname,' ',name);
WriteLn(' ',date.day,'.',date.month,'.',date.year);
end;
ReadLn;
end.
Объяснение:
26
Объяснение:
a = 23 (дано число a)
выполняем цикл (увеличиваем число a на 5 и проверяем условие число a больше 35, если условие истинно (да) выходим из цикла, если ложное (нет), то повторяем цикл)
a = a + 5 = 23 + 5 = 28
a > 35 (28 > 35, нет)
a = a + 5 = 28 + 5 = 33
a > 35 (33 > 35, нет)
a = a + 5 = 33 + 5 = 38
a > 35 (38 > 35, да)
a = a * 2 = 38 * 2 = 76 (увеличиваем число a в 2 раза)
проверяем условие является ли число a двузначным, если условие истинно (да), то выполняем левую ветку, а правую ветку (ещё один цикл) не трогаем (если условие ложно (нет), то выполняем правую ветку (ещё один цикл), а левую ветку не трогаем)
9 < a < 100 (9 < 76 < 100, да - двузначное)
a = a - 50 = 76 - 50 = 26 (уменьшаем число a на 50)
получаем ответ (больше ничего не делаем)