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.
Пример реализации при помощи функции "поиск решения" в Excel
Ответ:
Информация хранится в компьютере в двоичном символе (0 или 1)
Один символ (единица или ноль) - это один бит.
8 бит - 1 байт.
1000 байт - 1 килобайт
1000 килобайт - 1 мегабайт.
1000 мегабайт - 1 гигабайт.
1000 гигабайт - 1 терабайт.
1000 терабайт - 1 петабайт.
Объяснение:
Program for5;
var i:integer;
a:real;
begin
read(a);
for i:=1 to 10 do
write(a*(i/10));
end.
Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.