1 Задача)
var a,k: integer;
begin
writeln('Задайте x');
readln(a);
k:=7*a+10;
writeln(k);
end.
2 Задача)
var a,b,c: integer;
begin
a:=96;
writeln('Сколько килограмм яблок вы хотите купить?');
readln(b);
c:=a*b;
writeln('Вам нужно заплатить ',c);
end.
3 Задача)
var a,b,c: real;
begin
a:=132;
writeln('Задайте скорость');
readln(b);
c:=132/b;
writeln('На преодоление данного расстояния понадобится ',c,' часов');
end.
Объяснение:
