program raf105;
var V,t,x: integer;
begin
write('Скорость поезда V(км/час.) = ');
readln(V);
write('Время в пути t(час.) = ');
readln(t);
x:= V*t;
writeln('Пройденное расстояние: ',x,' (км.)');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
121(7) + 1 = 101(8)
64 + 1 = 65
Var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.
<span>a = 7
b = 4
a = 5*b-2*a = 5*4-2*7 = 20-14 = 6
b = a/3*8+5*b = 6/3*8+5*4 = 2*8+5*4 = 16+20 = 36</span>