Простая ошибка
Объяснение:
program one;
uses crt;
var
x,z:integer;
begin
writeln('введи число');
readln(x);
if x div 5=0 then z:=x-5
else
z:=x/5;
writeln('z=',x);
end.
Простая ошибка
Объяснение:
program one;
uses crt;
var
x,z:integer;
begin
writeln('введи число');
readln(x);
if x div 5=0 then z:=x-5
else
z:=x/5;
writeln('z=',x);
end.