Var
 n, i: integer;

begin
 n := 0;
 while (n <= 1) or (n > 10) do
 begin
 write('Введите n в диапазоне от 2 до 10 = ');
 readln(n);
 end;

 for i := 1 to 9 do
 writeln(n, ' * ', i, ' = ', n * i);
end.

без проверки

var
 n, i: integer;

begin
 write('Введите n в диапазоне от 2 до 10 = ');
 readln(n);

 for i := 1 to 9 do
 writeln(n, ' * ', i, ' = ', n * i);
end.

0 0

1 год назад

ПРОШУ ПОМОГИТЕ ХОТЬ где небудь помогите НО ПОМОГИТЕ ПОЖАЛУЙСТА

olga100580

512 бит = 64 байт

81 902 бит = 10 240 байт

15 кб = 15 360 байт

88 кб = 720 896 бит

5 гб = 5 120 мб

1 мб = 1 048 576 байт.

Пожалуйста)

0 0

4 года назад

Заполнить массив из 15 элементов случайных целых чисел из диапазона [-15;+17]. Вывести его на экран. Определить количество четны

Maxman [150]

Const n=15;
var a:array[1..n] of integer;
i,k,max:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(33)-15;
write(a[i]:4);
end;
writeln;
k:=0;
max:=-999;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
if (a[i]>max)and(a[i]<0) then max:=a[i];
end;
writeln('k = ',k,' max = ',max);
end.

Пример:
Массив A:
14 5 5 7 -10 -13 -3 10 5 -2 -4 -5 3 -10 -14
k = 7 max = -2

0 0

1 год назад

Указать значение переменной s, которое соответствует результату выполнения указания разветвления: 1) b:=3; if b>=6 then x:=1

kr1pt0man [47]

Вот ответы:
1)г
2)б
3)а

0 0

4 года назад