помогите прошу безотлагательно нужно 2 и 3 пррям очень безотлагательно

Помогите прошу безотлагательно необходимо 2 и 3 пррям очень безотлагательно

Задать свой вопрос
Стефания Хматова
Var Ne,Nk:integer;BeginFor Ne:= 0 to 8 do Begin For Nk:= 1 to 5 do Write((Ne*5+Nk):2,' '); WriteLn End;End.
Егор Хрынов
Var a,b:integer;Begina:=0;b:=0;While a < 7 do Begin a:=a+1; b:=b+a End;WriteLn('b = ',b);End.
Юрка
благодарю
1 ответ
Var Ne,Nk:integer;
Begin
For Ne:= 0 to 8 do
    Begin
    For Nk:= 1 to 5 do
        Write((Ne*5+Nk):2,' ');
    WriteLn
    End;
End.



Var
a,b:integer;
Begin
a:=0;
b:=0;
While a lt; 7 do
   Begin
   a:=a+1;
   b:=b+a
   End;
WriteLn('b = ',b);
End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт