Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
можно. читай, если интересно. я пересказать своими словами полно и ясно не смогу.
нельзя так как это все онлайн и ты не сможешь получить
var
a,b: real;
begin
readln(a,b);
if (a> 0) or (b< -2) then
writeln('истинно')
else
writeln('ложно');
end.
var s: string;
i,j,k: integer;
unique: boolean;
for i : = 1000 to 9999 do
s : = str(i);
unique: =true;
for j: = 1 to length(s)-1 do
for k : = j+1 to length(s) do
if s[j] = s[k] then unique: =false;
end;
if unique then
writeln(i);
может длинее, но универсальное.
Популярные вопросы