Все в паскале: 1. Формула пути S=V*t,V=S/t; Значит программа имеет вид var s, v, t:integer; begin writeln('Введите путь и время'); readln(s, t); v:=s/t writeln('ответ: V=', v); end. Все остальное по анологии
Во 2 и 3 y:=/формула в условии/ и выводишь у В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной) В 5 a=P-2*b (а основание, b бок сторона) В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах) 8. var a, b:integer; begin writeln('Введите числа'); readln(a, b); writeln('Сумма=', a+b); writeln('Разность=', a-b); end. В 9 как 8, только вместо + и - надо * И /
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.