var a,b,c,d:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
write('d = ');
readln(d);
writeln('X = ',(a*a+b*b)-c+d);
if (a*a+b*b)-c+d>0 then writeln(a,' + ',b,' = ',a+b)
else writeln(c,' + ',d,' = ',c+d)
end.
В 32. Надо разделить числа, тогда будет известно, во сколько раз.
Б)использование записанной информации
в)изучение записанной информации
г)передача информации
д)перевод информации
Program poezd;
var
P,N:integer;
begin
Writeln ('введите данные о вместимости поезда');
Readln(P);
Writeln('введите данные о количестве посылок');
Writeln('количество поездов -равно ', N/P);
End.