var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Def some_func(num):
arr = []
for n in range(num):
arr.append((n+1)*(n+1))
return arr
15 х 5 = 75(км)
Ответ: 75км проедет велосипедист за 5 часов.
Ответ: 1 изображение - код
2 изображение - проверка, как в задании
Код:
program school10;
Var a, b:Real;
begin
Write('Введите цену 1 кг яблок>> ');
readln(a);
Write('Введите кол-во покупаемых кг. яблок>> ');
Readln(b);
If b>2 then
Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')
Else write('Стоймость яблок составит ', b*a, ' руб.');
end.