4 года назад

Написать программу , которая вычисляет скорость движения, зная путь и времяPascal

1 ответ:

0 0

Program dz;
uses CRT;
var v, t, s:real;
begin
ClrScr;
write ('Введите путь и время через пробел ');
readln (s, t);
v:=s/t;
write ('Скорость движения равна= ', v);
end.

Так как у тебя в задании не написано в чем измеряется время и путь в условиях задачи, то я взяла в систему СИ - то есть время в часах, а расстояние в км. То есть ответ в км\ч.

помогло?? жмем спасибо!!))**
удачи!, если что, обращайся)*
отметь мое решение как лучшее! тебе возвратиться часть твоих пунктов!!))

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

Представьте число 56 в целом беззнаковом формате (1 байт). помогите, пожалуйста

ЮляДи

В двоичной? ответ

0011100

0 0

4 года назад

Помогите пожалуйста с ПРОГРАМИРИВАНИЕМ в паскале с оператором If. Даны три целых числа A, B, C. Определить, есть ли среди них хо

ForwarD152

Ответ:

Задание 1

a = int(input())

b = int(input())

c = int(input())

if (a % 2 == 0 and b % 2 != 0) or (a % 2 != 0 and b % 2 == 0):

print("YES")

elif (a % 2 == 0 and c % 2 != 0) or (a % 2 != 0 and c % 2 == 0):

print("YES")

elif (b % 2 == 0 and c % 2 != 0) or (b % 2 != 0 and c % 2 == 0):

print("YES")

else:

print("NO")

Задание 2

Var i,j,t:integer;

a:array[1..3] of integer;

Begin

for i:=1 to 3 do

readln(a[i]);

for i:=1 to 3 do

for j:=i+1 to 3 do

if a[i]>=a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

for i:=1 to 3 do

write(a[i],' ');

End.

Объяснение:

0 0

4 года назад

Студент зa лето заработал C РУб. Ежемесячная стипендия студента составляет А руб, расходы на проживание - В руб. (А<В). Рост

СтаниславКузнец [145]

Var A,B,C :real;
time :integer;
begin
Writeln('сколько заработал за лето');
readln(c);
Writeln('стипендия = ');
readln(A);
Writeln('расходы на проживание');
Readln(b);
C:=c+a-b;
while (c>=0) do begin
C:=c+a-b;
b:=b+(b/100*3);
time:=time+1;
end;
writeln('денег хватит на ',time,' месяцев');
end.

0 0

3 года назад

Постройте деревья, соответствующие следующим арифметическим выражениям:1) (a+b)*(c+2*d)2) (2*a-3*d)*c+2*b3) (a+b+2*c)*d4) 3*a-(2

Зенни [50]

Решение приложил.

(О нет! Что-то пошло не так во время добавления ответа
Слишком коротко. Напишите минимум 20 символов, чтобы объяснить все.)

0 0

4 года назад

1. Определить объем видеопамяти в Кбайтах компьютера, который необходим для реализации графического режима монитора с разрешающе

Ivan165165

Решение смотри во вложении.

0 0

3 года назад

Прочитать ещё 2 ответа