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

я думаю 1) счёт

1)счёт

Объяснение:

так как он зашел в кафе и после того как он все выпъет то нужен ему счет

k = 5

Объяснение:

q = 15 s = 0 i = 1

Цикл с постусловием:

s = s + i

i = i + 1

выход из цикла когда s > q

q = 15 s = 0 i = 1

s = 0 + 1 = 1

i = 1 + 1 = 2

1 > 15 (НЕТ)

q = 15 s = 1 i = 2

s = 1 + 2 = 3

i = 2 + 1 = 3

3 > 15 (НЕТ)

q = 15 s = 3 i = 3

s = 3 + 3 = 6

i = 3 + 1 = 4

6 > 15 (НЕТ)

q = 15 s = 6 i = 4

s = 6 + 4 = 10

i = 4 + 1 = 5

10 > 15 (НЕТ)

q = 15 s = 10 i = 5

s = 10 + 5 = 15

i = 5 + 1 = 6

15 > 15 (НЕТ)

q = 15 s = 15 i = 6

s = 15 + 6 = 21

i = 6 + 1 = 7

21 > 15 (ДА) - выход из цикла

q = 15 s = 21 i = 7

k = i - 2

k = 7 - 2 = 5

Program Pro1;
type Date = record 
day : 1..31; 
mounth : 1..12; 
year : integer; 
end; 
Person = record 
SurnameName : string; 
Birthday : date; 
end; 
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;

//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;

for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;

WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.