Ответ: Спасибо большое.
Ответ: Без рекурсии:Procedure ABC(N:integer);VarC:integer;BeginC:=0;While N>0 do Begin C:=C*10+N mod 10; N:=N div 10 End;While C>0 do Begin WriteLn(C mod 10); C:=C div 10 EndEnd;VarN:integer;BeginWrite(‘N = ‘);ReadLn(N);ABC(N);End.С рекурсией:Procedure ABC(N:integer);Beginif N>0 then Begin ABC(N div 10); WriteLn(N mod 10); EndEnd;Var N:integer;BeginWrite(‘N = ‘);ReadLn(N);ABC(N);End.
Ответ: // PascalABC.NET 3.3, сборка 1549 от 17.10.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger; Writeln(n*’ ‘,n)end.Пример7 7
Ответ: begin var count := 0; var sum := 0; while True do begin var a := ReadInteger; Assert(a <= 300); count += 1; Assert(count <= 100); if a = 0 then break; if (a mod 4 = 0) and (a mod 10 = 8) then sum += a; end; Writeln(‘Сумма чисел по предикату равна ‘, sum);end.
Ответ: #include <ctime>#include <iostream>using namespace std;int main(){srand(time(NULL));int n;cout << «Vvedite N << endl;cin >> n;int arr[n];int a,b;cout << «Vvedite diapozon A-B cherez probel» << endl;cin >> a >> b;for (int i=0; i<n; i++) a[i]=rand()%b+a;int s50 = 0;int ss50 = 0;int s = 0;int ss = 0;for (int i=0; i<n; i++) {if (a[i]<50) {s50+=a[i];ss50++;} else {s+=a[i];ss++;}}cout << «Srednee arifmeticheskoe chisel menshe 50 ravno » << s50/ss50 << endl;cout << «Srednee arifmeticheskoe chisel ostalnix elementov ravno » << s/ss;return 0;}