<span>Колмес это поворот колеса, который осуществляется вручную, с помощью штифта</span>
Паскаль:
Var xa,ya,xb,yb:integer;
AB:real;
begin
read (xa,ya,xb,yb);
AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write ('|AB|=',AB:3:1);
end.
Var
a: real;
begin
while a <= 1000 do
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
if a > 1000 then break
else writeln('Ошибка! Введенная сумма покупки <= 1000p');
end;
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
a: real;
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Скорость(1)=3Мб
Время(1)=60c
Время(2)=20c
_____________
Скорость(2) - ?
Найдем скорость передачи файла:
Теперь надо найти размер файла:
Скорость(2)
