println('кол-во символов -',readstring('слово-> ').length)
end.
пример:
741258963
кол-во символов - 9
б
begin
var s: =readstring('слово-> ').tolower;
println(s[1]=s[s.length]? '': 'не ');
end.
пример:
слово-> олово
в
begin
var s: =readstring('слово-> ');
println(s[1],s[2],s[s.length]);
end.
пример:
слово-> плотина
п л а
г
begin
println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');
end.
пример:
слово-> виноград
четно
Ответ дал: Гость
var a: array[1..100] of integer;
s,i: integer ;
sr: real;
begin
{vvod massiva a}
for i: = 1 to 100 do
sr: =sr+a[i];
sr: = sr/100;
for i: = 1 to 100 do
if a[i]> sr then
s: =s+1;
writeln(s);
end.
Ответ дал: Гость
type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin randomize; n: =10; for i: = 1 to n do begin x[i]: =random(n*10)- 10*n div 2 ; write(x[i]: 4); if i mod 10=0 then writeln; end; min: =1; max: =1; for i: = 1 to n do begin if x[i]< x[min] then min: =i; if x[i]> x[max] then max: =i; end; i: =x[min]; x[min]: =x[max]; x[max]: =i; writeln; for i: = 1 to n do begin write(x[i]: 4); if i mod 10=0 then writeln; end; end.
Ответ дал: Гость
var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.
Популярные вопросы