написать программу, которая определяет значение целочисленной переменной A, после выполнения фрагмента алгоритма:
A:=247; В:=(А*div 100) * 10-9 А:=(10*b-a) mod 10;
Answers & Comments
remdigo394
Как на счет Program sk; var A,B:integer; begin A:=247; B:=(A div 100) * 10-9; A:=(10*B-A) mod 10; writeln('A= ',A); end.
2 votes Thanks 1
koralinageiman
я просто переписала задание с карточки. честно? я совсем в этом не разбираюсь, ибо меня не было на предыдущей лекции. Вы не могли бы проверить правильность своего решения еще раз? мне необходимо быть уверенной :с
remdigo394
Да, я была права, операция div не применима, так как 247 не делится на 100 без остатка, вы уверены в правильности написания задачи?
koralinageiman
да, уверена. ох, ладно, спасибо и на этом с:
remdigo394
Я исправила программу, посмотрите. В таком виде она работает.
koralinageiman
окей, напишу так, как вы сказали с: еще раз огромное спасибо :)
remdigo394
Надеюсь, что правильно. Но все же вам стоит проверить на паскале
Answers & Comments
Program sk;
var
A,B:integer;
begin
A:=247;
B:=(A div 100) * 10-9;
A:=(10*B-A) mod 10;
writeln('A= ',A);
end.