Каждый вторник члены клуба толстяков выстраиваются в определенном порядке и взвешиваются. Напишите программу которая хранила бы данные взвешивания всех 8 членов клуба за неделю. При вводе новых данных Компьютер должен печатать -поздравляю- если члену клуба удалось похудеть либо величину прибавки веса.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))