Var v:real; i,h:integer;
begin
write('V = '); readln(v);
v:=v*1000/3600; //м/сек
h:=10;
for i:=0 to 60 div h do
writeln(i*h:3,' сек',v*i*h:6,' м');
end.
Пример:
V = 90
0 сек 0 м
10 сек 250 м
20 сек 500 м
30 сек 750 м
40 сек 1000 м
50 сек 1250 м
60 сек 1500 м
Максим же, ну :) Другие не подходят, тк либо начинаются на гласную, либо заканчиваются
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
Так как в результате первого сложения должно получиться <u>трехзначное число</u>, то нетрудно предположить, что три одинаковые цифры -<u> три девятки</u>.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
Ответ: 46