4 года назад

ПАСКАЛЬ написать программу, которая выводит таблицу умножения для числа а на множители от 1 до 9

Знания

Информатика

1 ответ:

tipo4ek [21]4 года назад

0 0

Ответ:

Var a, i:integer;

Begin

Writeln('Введите число') ;

Read(a) ;

For i:=1 to 9 do writeln( a, '*', i, '=', a*i) ;

End.

Читайте также

Даны 4 целых числа, записанных в двоичной системе: 10001011; 10111000;10011011; 10110100. Сколько среди них чисел, больших, чем

jallav

1 0 0 0 1 0 1 1 – 139
1 0 1 1 1 0 0 0 – 184
1 0 0 1 1 0 1 1 – 155
1 0 1 1 0 1 0 0 – 180
9A – 154
Значит 3 числа, записанных в двоичной форме больше, чем 9А
Правильный ответ
3) 3 
Рекомендую использовать стандартный инженерный калькулятор, встроенный в Windows

0 0

4 года назад

25div8 ПОМОГИТЕЕЕ!!!!!!!!!!!!!!!!!!!!

Mirag

оператор div это целочисленное деление, то есть одно число делим на другое целую часть оставляем остольное отбрасываем.

25 div 8 = 3

0 0

4 года назад

Задание: написать программу, которая выведет на экран таблицу умножения (через оператор while)(всю), типа: 2*2=4;2*3=6...8*9=72;

alana9997

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 год назад

найдите количество элементов массива, которые больше заданного числа а, вводимого с клавиатуры

Irina 65 [4]

program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
   i,n,k,p:byte;
begin clrscr; Randomize;
   writeln('n:');readln(n);
   writeln('a:');readln(p);
   for i:=1 to n do
   begin
       write('элемент ',i,' : ');
       readln(a[i]);
   end;
   for i:=1 to n do
       write(a[i],' ');
   k:=0;
   for i:=1 to n do
   begin
       if a[i] > p then inc(k);
   end;
   writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.

0 0

4 года назад

Дана геометрическая прогрессия: 2, 6, 18, 54, … Найдите сумму первых n элементов прогрессии, используя оператор repeat.

nazar21

var s,n:integer;
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
end.

0 0

1 год назад