Налить воды в четырёх литровый бидон, перелить из него всю воду в пяти
литровый, наполнить опять 4-х литровый и заполнить 5-ти литровый
Это было проверено в компиляторах онлайн, проверьте на своём компьютере вывод (чисто оформление). Остальное работает верно.
pupils = input('Количество учеников: ')apples = input('Количество яблок: ')m = apples // pupilsprint(m, ' яблок на ученика, ', apples-m*pupils, ' яблок в остатке')
Var
a,s:integer;
begin
readln(a);
s:=(a div 100) + ((a div 10) mod 10) + (a mod 10);
writeln(s);
<span>end.</span>
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Var x:real; f:real; begin writeln('Введите значение х '); readln(x); if x < 3 then f:= 1/(x*x*x - 6) else f:= -(x*x) +3*x +9; write('Знание х = ', x, ' Функция равна ', f);<span> end.</span>