То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
1) 136:4+х=257
39+х=257
х=218
2) а+884:4=570
а+221=570
а=349
3) у-125:5=800
у-25=800
у=825
4) 147:7×в=210
21в=210
в=10
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
256 вариантов - это 1 байт. 15 байт. И еще буквы
Program Chisla;
Var a,p:integer;
Begin
P:=1
For a:=10 to 16 do
P:=p*a;
Writeln(P);
End.