Var a,b:real;
begin
writeln('Введите кол-во фунтов');
readln(a);
b:=a*409.5;
writeln('граммов b=',b,'г');
b:=b/1000;
writeln('b=',b,'кг');
readln;
<span>end.

Ну как-то так</span>

0 0

4 года назад

Укажите, с помощью какого файла вы запустите игру .avi .txt .wav .bmp .com Только эти варианты даны в задании!!

Ирина из города Д... [133]

Avi - видео
txt - текст
wav - звук
<span>bmp - изображение
Значит - соm. С помощью файла com можно запустить игру.
Ответ: соm</span>

0 0

4 года назад

Составить блок схему для вычисления кинетической и потенциальной энергии тела заданной массы m, которое двигается на высоте h со

ОльгаТреф

Объяснение:

Код:

program storinka29zadacha7;

uses crt;

const g=9.80665;

var e,m,v,p,h:real;

begin

writeln('Vvedite m');

readln(m);

writeln('Vvedite v');

readln(v);

writeln('Vvedite h');

readln(h);

e:=m*sqr(v)*8/2;

p:=m*g*h;

writeln('E=',e);

writeln('P=',p);

end.

Схема на картинке

0 0

4 года назад

С клавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7

ИванРябов

Var
   A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
    Begin
    Read(a);
    if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
    End;
WriteLn('Max = ',Max);
End.

0 0

3 года назад