1. Чему равно значение а после выполнения программы, если с=55 b=11 Var a,b,c: integer; Begin Read (с,b); If (с<>b) or (b mod 2=0) then а:=с*b else а:=с div 2; Writeln(a); End.
2. Напишите программу решения задачи. Дано четырехзначное число а. Если первая цифра этого числа больше последней, то вывести число а, увеличенное в 10 раз .
3. Напишите программу решения задачи. Дано число k. Если оно четное или не равно числу b, то вывести число k без изменения, иначе найти 1% от числа

Надо установить 32-bit java и всё заработает. Я так сделал и всё. Я ввожу правильный (:11111) адрес сервера. Q: Я не могу двигаться при входе в игру, что делать?. зайти - ввожу ke. org:12317 и сначало долго висит надпись Вход и после этого - Подключение. Здравствуйте! Я установил последнюю версию Minecraft совсем недавно. Но я не могу. Никак! Делайте пароли запоминаемые и не очень большие. Когда я играю на серверах с мини-играми, они долго грузятся. 2.1 Загрузка и запуск игры; 2.2 Вход в игру; 2.3 Управление и интерфейс. После объединения аккаунта Minecraft с общим аккаунтом.

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)