program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.
1) какой то вопрос неполный, ну может комнатами))
Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................
Лови фото. на нем второй пример объясняет как переводить из двоичной в десятичную