Var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
<span>end.
</span>var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
<span>end.
</span>
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.
A) writeln(c);
б) var a, s: integer;
в) r := p - q;
2. а)
9
53 (после writeln происходит переход на новую строку, после write - нет)
2. б)
8
5-35+1=6
проверяем все двузначные нечётные числа, делящиеся нацело на 3 и выявляем наименьшее из них, имеющие остаток 4 при делении на 5:
15; 21; 27; 33; <u> </u><u>39 </u> ...
ответ 39
Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}
<span>const n = 15;</span>
<span>var</span>
<span> a: array[1..n] of integer;</span>
<span> i, count: integer;</span>
<span>begin</span>
<span> for i := 1 to n do begin</span>
<span> a[i] := random(100);</span>
<span> write(a[i], ' ');</span>
<span> if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);</span>
<span> end;</span>
<span> writeln;</span>
<span> writeln('[', count, ']');</span>
<span>end.</span>