Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
можно назвать - собака
или
агент @ мail.ru
var s: string;
i,j,k: integer;
unique: boolean;
begin
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);
end.
может длинее, но универсальное.
a-возраст cаши
b– возраст маши
program r;
var a,b: integer;
readln(a,b);
if a=b then writeln («ровесники»)else writeln( «неровесники»)
21 зависит от того чему равны в1 и а1
23 увижу этотт фрагмент - тогда скажу
24 аналогично 23
25 аналогично 23
26 сумм(в1: в3) = 3*3 = 9.
13-9 = 4
27 дайте таблицу тогда и видно будет
28 какого алгоритма?
Популярные вопросы