{вот правильное решение я там забыл то чтобы подсчитывать число букв a} <span>var </span><span><span> s</span>: string;</span><span><span> i</span>, id, len, max, count,q: byte;</span>
begin
<span> q:=0; readln(s);</span><span><span> len </span>:= length(s);</span><span><span> max </span>:= 0;</span><span><span> id </span>:= 0;</span> <span><span> count </span>:= 0;</span><span> for i:=1 to len do </span><span> if s[i] <> ' ' then</span><span><span> count </span>:= count + 1</span><span> else begin</span><span> if count > max then begin</span><span><span> max
</span>:= count;</span><span><span> id </span>:= i - count;</span><span> end;</span><span><span> count </span>:= 0</span><span> end;</span>
<span> if count > max then begin </span><span><span> max </span>:= count;</span><span><span> id </span>:= i - count;</span><span> end<span>; </span></span>
<span> for i:=id to id+max do</span><span> if s[i] = 'a' then begin</span><span><span> q:=q+1; s</span>[i] := 'b';</span>
<span> writeln(s,' ' , q);</span> end; <span>end<span>.
\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer; i, rez: integer; begin for i := 1 to 2 do readln(a[i]); rez := 0; i:=1; for i:=1 to 1 do if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez); end.
#include <iostream> #include <conio.h> using std::cout; using std::cin; using std::endl; int F(int N); int main() { int N; cin >> N; cout << F(N); я не понял, по условию сказано "первого, большего введенному m" если надо найти значение следующего после введенного, то вместо F(N) надо F(N+1) мол если ты ввел 14, то тебе нужно найти значение следующего(15), как-то так. _getch(); } int F(int N) { if (N >= 2) return F(N - 1) + F(N - 2); else return N; }
ОС обеспечивает взаимодействие между прикладными программами и устройствами компьютера, благодаря ней прикладные программы работают с железом не напрямую, а через ОС.