Можно использовать все эти команды:
Найдут тебя опять за дымкою тум<u>ано</u>й -<u />> <span>Найдут тебя опять за дымкою тум<u>анно</u>й
</span>Найдут тебя опять за дымкою тум<u>ан</u>ой -> Найдут тебя опять за дымкою тум<u>анн</u>ой
Найдут тебя опять за дымкою тума<u>ной</u> -> Найдут тебя опять за дымкою тума<u>нной</u>
Найдут тебя опять за дымкою тума<u>но</u>й -> Найдут тебя опять за дымкою тума<u>нно</u>й
Правильный ответ у меня вышло Г
Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
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.