bellenru
?>

Почему информационные технологии позволяют индивидуализировать процесс обучения и как они реализовать потребности в самообразовании людей.

Информатика

Ответы

БашуроваОльга369
Потому что через интернет можно учиться, да и не только 
lzelenyi5
//Код, уродливый как кхм
//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
//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
Пример вывода:
Старшая школа

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Почему информационные технологии позволяют индивидуализировать процесс обучения и как они реализовать потребности в самообразовании людей.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

raa-0485428
mskatrinmadness
kmalahov
Есартия52
barabanoveugeny
Marina281
ipKAV85
Larisa Bulgakova
Maria095096
kuchino09
Вершинина1161
juliaWinter
dashakhmeleva6
sayfullinmr
samirmajbubi