Френкель 2 ноября 2019 в 09:58
Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11.исло в 11 раз, в противном случае уменьшить число на 11.
Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11.исло в 11 раз, в противном случае уменьшить число на 11.
Var
a:integer;
begin
writeln(Введите число);
read(a);
if a mod 11 = 0 then
a:=a div 11
else
a:=a-11;
writeln(a);
end.
a:integer;
begin
writeln(Введите число);
read(a);
if a mod 11 = 0 then
a:=a div 11
else
a:=a-11;
writeln(a);
end.
Компьютеры и вычисления
21
95
Для комментирования необходимо зарегистрироваться на сайте