Рисунок во вложении. Вместо номеров с 1 по 7 надо вписать следующее: 1. "Раздели монеты на кучки 2 + 2 + 1 и положи на весы две первые кучки (по одной кучке на каждую чашечку)" 2. "Весы в равновесии?" 3. "Монета из третьей кучки - золотая" 4. "Возьми монеты из той кучки, что тяжелее, и положи их на весы (по одной на каждую чашечку)" 5. "Левая монета тяжелее?" 6. "Монета на левой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед" 7. "Монета на правой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"
var b, c: integer; begin Writeln('Введите ваш возраст'); Readln(b); if b <= 0 then WriteLn('Вам 0 лет') else begin c := b mod 100; if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет') else case (b mod 10) of 1: WriteLn('Вам ', b, ' год'); 2..4: WriteLn('Вам ', b, ' года'); 5..9, 0: WriteLn('Вам ', b, ' лет') end; end; Writeln('Для выхода нажмите <Enter>'); Readln; end.
A,S:real;
Begin
Repeat
Read(A);
S:=S+A*A;
Until A = 0;
WriteLn('S = ',S);
End.