Var s: string; i: integer; begin read(s); s : = trim(s); for i : = 1 to length(s) div 2 do if s[i] < > s[length(s) - i + 1] then begin writeln('не палиндром'); exit; end; writeln('палиндром'); end.
stmr29
09.09.2022
Const n=10; type chisla = array [1..n] of integer; var f: chisla; procedure ichisla (n: integer; var a: chisla); begin for var i : = 1 to n do a[i] : = random(-50, 50); end; procedure ochisla(n: integer; a: chisla); begin for var i : = 1 to n do write(a[i]: 5); end; function sum (a: chisla): integer; begin for var i: =1 to n do if (a[i] mod 7 = 0) and (a[i] mod 10 = 5) then result: = result+f[i]; end; begini chisla (n, f); ochisla (n, f); writeln ('вывести сумму', sum(f)); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сравните две команды, с которых можно организовать цикл в программной среде scratch. для сравнения двух команд примените схемы алгоритмов ( рис.98 )
5тяоыооылышщыьвддвдадвдвдьвьч