Из москвы в санкт-петербург выезжает пассажирский поезд, который движется со скоростью v км/ч. одновременно из санкт-петербурга в москву отправляется скоростной поезд "сапсан", который движется со скоростью w км/ч. расстояние от москвы до санкт-петербурга равно s км. определите, какое расстояние проедет "сапсан" до встерчи с пассажирским поездом. считайте, что скорости движения поездов постоянные, временем остановок следует пренебречь. ответом на эту является некоторое выражение, которое может содержать целые числа, переменные v, w, и s, операции сложения, вычитания, умножения, деления и круглые скобки для изменения порядка действий.запись вида"2s" для обозначения произведения числа 2 переменной и переменной s неверная, нужно писать "2 * s". пример правильного (по форме записи) выражения: v + (s - w) * 2
Ответы
P = 
или
P = S * W / (V + W)
или
P = S * W / (V + W)
//Не люблю "примерно так"
//PascalABC.NET 3.2 сборка 1318
Const
n=10;
Var
m,fm:real;
mc,fmc,i:integer;
val:array[1..n] of real;
begin
for i:=1 to n do
begin
readln(val[i]);
if val[i]>0 then
begin
inc(fmc);
fm+=val[i];
end
else
if val[i]<0 then
begin
inc(mc);
m+=abs(val[i]);
end
else
begin
writeln('Funny joke!(no)');
exit;
end;
end;
writeln('Male average=',m/mc);
writeln('Female average=',fm/fmc);
end.
//PascalABC.NET 3.2 сборка 1318
Const
n=10;
Var
m,fm:real;
mc,fmc,i:integer;
val:array[1..n] of real;
begin
for i:=1 to n do
begin
readln(val[i]);
if val[i]>0 then
begin
inc(fmc);
fm+=val[i];
end
else
if val[i]<0 then
begin
inc(mc);
m+=abs(val[i]);
end
else
begin
writeln('Funny joke!(no)');
exit;
end;
end;
writeln('Male average=',m/mc);
writeln('Female average=',fm/fmc);
end.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,99);
var b:=ArrRandom(7,1,99);
var c:=ArrRandom(7,1,2);
var k:=0;
var r,x:integer;
for var i:=0 to 6 do begin
Write(a[i]);
if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end
else begin Write(' - '); r:=a[i]-b[i] end;
Write(b[i],' = '); Read(x);
if x=r then k+=1
end; // for
Writeln('Верных ответов: ',k)
end.
Пример
77 - 21 = 56
53 - 97 = -44
91 + 51 = 142
42 - 65 = -23
70 + 78 = 148
91 - 5 = 86
45 + 41 = 86
Верных ответов: 7
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,99);
var b:=ArrRandom(7,1,99);
var c:=ArrRandom(7,1,2);
var k:=0;
var r,x:integer;
for var i:=0 to 6 do begin
Write(a[i]);
if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end
else begin Write(' - '); r:=a[i]-b[i] end;
Write(b[i],' = '); Read(x);
if x=r then k+=1
end; // for
Writeln('Верных ответов: ',k)
end.
Пример
77 - 21 = 56
53 - 97 = -44
91 + 51 = 142
42 - 65 = -23
70 + 78 = 148
91 - 5 = 86
45 + 41 = 86
Верных ответов: 7
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Ниже представлены фрагменты базы данных
Автор: yrgenson2011801
Сколько раз будет выполнен цикл for i: =2 to 5 do d: =d*d
Автор: terma-msk1
нужно перевести математические выражения на язык Паскаля
Автор: Овчинников_Грузман
2. Путь, пройденный "Сапсаном" за время t, равен w*t
ответ: w*s/(v+w)