Var a,b:integer;
begin
read (a,b);
if a>b then write (' а большее') else write (' b большее');
end.
Таблица:
вадим олег высокий миша
скрипка ----- ----- +
флейта ----- + ----
альт + ---- ----
кларнет + ---- ----
гобой ---- + ----
труба ---- ---- + ( миша : скрипка и труба)
Ответ: 3
Объяснение: Допустим, 123. Всё неправильно. Тогда 312. Если опять не сошлось, то остаётся только 231.
Program funt;Var m, f:real;beginwriteln('Введите количество фунтов');readln(f);m:=f*453;writeln('Ответ:',m);end.