Var
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);

den:=0;
while a<c do begin d:=a/100*b; // узнаем, на сколько увеличивается растояние a:=a+d; den:=den+1; end; writeln(den);
<span>end.

Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)</span>

0 0

1 год назад

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

Составить блок-схему. ОЧЕНЬ НУЖНО! Через иллюминатор затонувшего корабля требуется вытащить сундук с драгоценностями. Составить

dos7475 [765]

см. вложение - должно выглядеть как-то так

0 0

4 года назад

Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа

kulakwikd

Var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.

Проверка по входным данным на фото

0 0

4 года назад

Срочно! Помогите, пожалуйста Даны два различных числа a и b .Если a меньше b, то вычислить их произведение a*b, в противном случ

emmasim [6.3K]

Var a, b, rezultat: integer;

begin

writeln(`Введите значения a и b:`);
readln(a, b);

if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b

writeln(rezultat);

end.

0 0

3 года назад