<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.

<u><em>C++:</em></u>
#include <iostream>
using namespace std;

int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}

0 0

4 года назад

Какой из предложенных паролей лучше выбрать? IRJkf10 Ivan!999333 Дата рождения родственника

Гелос

пароль не должен быть датой рождения родственника поэтому 3 вар. отпадает.2 вар. не самый надёжный пароль.1 вар. самый походящий по безопасности.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите , пожалуйста (2-5)

maksik84

Промежуточные значения n и s даны в приложении.

Ответ: 30.

var n: integer;

begin

read(n);

if n mod 2=0 then n:=n div 4

else n:=n*5;

writeln(n);

end.

var

x, y: integer;

begin

read(x);

if x > 5 then y := x * x - 1

else if x < -2 then y := 2 * x;

writeln(y);

end.

var

i: integer;

pr: biginteger;

begin

pr := 1;

for i := 10 to 25 do

if i mod 2 = 1 then pr := pr * i;

writeln(pr);

end.

0 0

4 года назад

В одном мешке лежат красные шарики, а в другом зеленые. нарисуй их в мешках если известно что все надписи истинные

Екатерина МЧС

Извините но я рисую плохо

0 0

4 года назад