Напишіть програмний код, в якому у випадку, якщо значення якоїсь змінної більше 0, виводилося б спеціальне повідомлення
(використовуйте функцію print). Один раз виконайте програму при
значенні змінної більше 0, другий раз - менше 0.

1 текст:      Суан-пан

 

(Буква)      (Десятичный код)     (Двоичний код)

 

 

    С                      243                            11110011

     у                      213                            11010101

    а                      193                             11000001

    н                       206                            11001110

   ( - )                    45                              00101101

    п                       208                            11010000

    а                      193                             11000001

    н                      206                             11001110

 

 

 

2 текст:  IBM                (Англ.яз)

 

 

(Буква)            (Десятичный код)     (Двоичный код)

 

 

   I                         73                                01001001 

  B                        66                                01000010

  M                        77                                01001101

 

 

 

 Примечания: ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.

( - )  - обозначение дефиса.

Английские буквы не кодируются в КОИ-8, используют ASCII (не беспокойтесь, это совершенно правильный подход).

 

 

Надеюсь, ответы Вам

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении