Потому что через интернет можно учиться, да и не только
lzelenyi5
17.02.2023
//Код, уродливый как кхм //Pascal ABC.NET 3.1 сборка 1219
Const n=1; m=2;
Var ar1:array[1..m] of integer; ar2:array[1..n] of integer; arr:array[1..n+m] of integer; i,p,raz,ost,isec:integer; begin write('Введите основание СС:'); readln(p); writeln('Введите число 1:'); for i:=1 to m do readln(ar1[i]); writeln('Введите число 2:'); for i:=1 to n do readln(ar2[i]); if n>m then begin i:=n; isec:=m; while (i<>0) and (isec<>0) do begin if ar2[i]+ar1[isec]>=p then begin ost:=(ar2[i]+ar1[isec]) div p; arr[i]:=(ar2[i]+ar1[isec]) mod p; end else begin arr[i]:=ar2[i]+ar1[isec]+ost; ost:=0; end; dec(i); dec(isec); inc(raz); end; arr[i]:=ost; ost:=i; for i:=1 to ost do begin arr[i]:=arr[i]+ar2[i]; inc(raz); end; while arr[1]>=p do begin ost:=arr[1] div p; arr[1]:=arr[1] mod p; for i:=raz downto 1 do arr[i+1]:=arr[i]; arr[1]:=ost; inc(raz); end; end else begin i:=m; isec:=n; while (i<>0) and (isec<>0) do begin if ar1[i]+ar2[isec]>=p then begin ost:=(ar1[i]+ar2[isec]) div p; arr[i]:=(ar1[i]+ar2[isec]) mod p; end else begin arr[i]:=ar1[i]+ar2[isec]+ost; ost:=0; end; dec(i); dec(isec); inc(raz); end; if n<>m then begin arr[i]:=ost; ost:=i; for i:=1 to ost do begin arr[i]:=arr[i]+ar1[i]; inc(raz); end; end else begin for i:=raz downto 1 do arr[i+1]:=arr[i]; arr[1]:=ost; inc(raz); end; while arr[1]>=p do begin ost:=arr[1] div p; arr[1]:=arr[1] mod p; for i:=raz downto 1 do arr[i+1]:=arr[i]; arr[1]:=ost; inc(raz); end; end; writeln('Result:'); for i:=1 to raz do write(arr[i]:4); end. Пример работы программы: Введите основание СС:3 Введите число 1: 2 2 Введите число 2: 1 Result: 1 0 0
BelyaevNadezhda223
17.02.2023
//Pascal ABC.NET 3.1 сборка 1219
Var a:integer; begin readln(a); case a of 1..4:writeln('Младшая школа'); 5..9:writeln('Средняя школа'); 10..11:writeln('Старшая школа') else writeln('Не класс'); end; end.
//Dev-C++ 4.9.9.2
#include <iostream> using namespace std;
int main(){ setlocale(LC_CTYPE,"Russian"); int a=0; cin>>a; switch(a){ case 1: case 2: case 3: case 4: cout<<"Младшая школа"; break; case 5: case 6: case 7: case 8: case 9: cout<<"Средняя школа"; break; case 10: case 11: cout<<"Старшая школа"; break; default: cout<<"Не класс"; break; } cin.get(); cin.get(); return 0; }
Пример ввода: 11 Пример вывода: Старшая школа
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Почему информационные технологии позволяют индивидуализировать процесс обучения и как они реализовать потребности в самообразовании людей.