Короче. Мне не влом было запихнуть это всё в эклипс. Результат данной работы будет, как не странно(особенно для тебя, Мышшшь) "5, 10", а не "10, 5". Чего и следовало ожидать. Т. к. Переменные a и b мы объявляли внутри метода main, а в методе swap(int a, int b); существуют собственные int a и int b. Поэтому и работает этот метод с <u>ними</u>. Так что... Учите теорию, господа.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
1. 2^6=64 - максимальное число символов в алфавите, минимальное равно 2^5+1=33. То есть от 33 до 64 включительно.
2. 3 Кбайта = 3072 байта = 24576 бит
В алфавите 16 символов -> 2^x=16
x=4 - бита на один символ
24576/4=6144 символа
Ответ: 6144 символа в сообщении
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
50/x-50/x+40=4
50x+2000-50x/x(x+40)=4
2000=4x^2+160x
-4x^2-160x+2000=0
x^2+40-500=0
x1=-50
x2=10
ответ 10 км/ч