Var a, b: real; begin readln(a, b); writeln(a * b); end.
saljagindima
21.11.2021
const v1 = 5; //скорость грузовика v2 = 10; //скорость легкового автомобиля t = 5; //задержка между выездом var t1 : integer; //время, от выезда легкового авто begin readln (t1); if v1 * (t +t1) < = v2 * t1 then writeln ('догонит') else writeln ('не догонит'); end. { уравнение зависимости координаты от времени x = xo + vt x0 = 0 xg(t) = v1*(t+t1) xl(t) = v2*t1 xl(t) > = xg(t) }
Paikina Natalya30
21.11.2021
Var i: integer; k : = 0; s : = 0; begin for i : = 10 to 99 do if i mod 5 = 0 then begin s : = s + i; k : = k + 1; end; writeln('количество = ', k, ' и сумму = ', s); end.