Program mb;var a,b:integer;beginclrscr;writeln('vvedite a,b');readln(a,b);if a>b then writeln('большим является a')else writeln('большим является b');end.
Можешь не благодарить
var
a,n:integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.
===== PascalABC.NET =====
begin
for var x := 0 to 180 do
Writeln(x:3, Sin(DegToRad(x)):20:15)
end.
Не меньше 12 ведь чем меньше тем легче его отгадать)
1)3FF шестнадцатиричная система в десятичной это 1023
Объем оперативной памяти будет 1023+1=1024 байта = 1КБайт
<span>+1 потому что адресация начинается с адреса 000.</span>