4 года назад

Напишите программу для вычесления скорости , числа любые

1 ответ:

0 0

Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln ('Введите расстояние в км');
readln (a);
writeln ('Введите скорость в часах');
readln (b);
c:=a/b;
writeln ('Скорость = ',c);
readln;
end.

Читайте также

Дан целочисленный двумерный массив, размерности n х m. Заменить все элементы на их квадраты.

Alex163 [1]

===== PascalABC.NET =====

begin

var (n, m) := ReadInteger2('Введите n и m:');

var a := MatrRandom(n, m, -99, 99);

a.Println(5);

Writeln('Измененный массив');

a.Transform(p -> p * p);

a.Println(5)

end.

0 0

4 года назад

Напишите программу перевода двоичного числа 10101001011 в десятичную СС в Паскале АВС

Захар1997

//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
    var n := 0;
    var p := 1;
    for var i := length(bin) downto 1 do
    begin
        n += p * StrToInt(bin[i]);
        p *= 2;
    end;
    Result := n;
end;

begin
    var s := ReadlnString('s =');
    writeln(BinToDec(s));
end.

0 0

4 года назад

Pascal. Вычислить объем цилиндра, вписанного в правильную шестиугольную призму, у которой каждое ребро равно a.

Ирина Кирпичникова

===== PascalABC.NET =====

begin

var a := ReadReal('Введи длину ребра');

var v := Pi * a ** 3 / (4 * Tan(Pi / 6));

Writeln('V = ',v)

end.

0 0

3 года назад

Объявлен набор в школьную баскетбольную команду.известен рост каждого из n учеников желающих попасть в эту команду. составьте ал

виктет [14]

Program enot;
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
<span>end.</span>

0 0

4 года назад

Сколько времени потребуется для передачи файла объемом 225 Кбайта,если скорость передачи 14400 бит/с (Можно подробно пожалуйста

Алексей66 [9]

225Кбайта=1,8*10 в 6 степени (1800000)

1800000/14400=125с

125с=2минуты 5 с

0 0

4 года назад