Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
writeln(s)
end.
// pascalabc.net
// версия 3.3.5 сборка 1662 (29.04.2018)
а
println('кол-во символов -',readstring('слово-> ').length)
пример:
741258963
кол-во символов - 9
б
var s: =readstring('слово-> ').tolower;
println(s[1]=s[s.length]? '': 'не ');
слово-> олово
в
var s: =readstring('слово-> ');
println(s[1],s[2],s[s.length]);
слово-> плотина
п л а
г
println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');
слово-> виноград
четно
самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.
26062 - 25952 = 110 секторов проверила программа за 2 секунды
110 : 2 = 55 секторов проверяет программа за секунду
var s: string;
begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.
Популярные вопросы