1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день
<span>оператор цикла с заданным числом повторений</span>
Паскаль.
<span>var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;
readln
end.
кумир вроде как тотак.
</span>заготовь мне переменные
А, И: целые будут;
начинай
пишистроку ("Введите натуральное число: ");
читай (А) ;
в цикле по И от 1 до А начинай
пишистроку (И, ":");
пишистроку (И*И, " ",И*И*И) ;
пишистроку;
кончай;
читай;
<span>кончай!</span>
Есть видео "Cоздание тестов в среде MS PowerPoint"
Ось:
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
<span>end.
Не дуже розумію, навіщо ви написали рядок:"</span><span>writeln(maxlongint);</span>". Чи це залишилося від перевірки числового інтервалу даного типу?