Var i: integer;
beginfor i:=35 to 117 doif (i mod 2=0) then write(i:4);writeln;writeln;for i:=45 to 99 doif (i mod 2<>0) then write(i:4);end.
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>
Msk.psu.ivanov; msk.psu.petrov;
msk.pstu.sidorov; msk.pstu.popov;
msk.ipkro.s102; msk.ipkro.s108; msk.ipkro.s11
Скажите пожалуйста, какой вам нужен паскаль. Сразу же - я пишу на delphi
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(41,160,2).Aggregate(BigInteger(1),(i,j)->i*j).Println;
Range(1500,3000).Where(t->t mod 150=0).Sum.Println;
Range(2500,7000).Where(t->t mod 17=0).Count.Println
end.