4 года назад

Пояснение к результатам можно вывести с помощью оператора writeln поместив их в а) ( ) б) "

1 ответ:

Тнб [1]4 года назад

0 0

Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов

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

Сканируется цветное изображение размером 25,4×25,4 см. Разрешающая способность сканера — 600×1200 dpi, глубина цвета — 16 бита.

Gold Wings

1 дюйм = 2,54 см, поэтому изображение размером 10x10 дюймов,
в одном квадратном дюйме 600x1200 точек, количество точек на данном изображении 10*10*600*1200 = 72000000 точек = 72*10^6. У каждой точки есть свой цвет, который кодируется 16 битами.
Информационный объем файла = 72*(10^6)*16 бит = 72*2*(10^6) байт =
= 144*10^6 байт

0 0

4 года назад

! QBasic ! Даны целые числа a = {a1,a2,…,an}. Для каждого из чисел, входящих в последовательность {a}, выяснить, сколько раз оно

uleved [9]

<em>MS DOS QBasic 1.0</em>

DIM n AS INTEGER
CLS
INPUT "N=", n
REDIM a(1 TO n) AS INTEGER
DIM a AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
   a(i) = 9 * RND + 1
   PRINT a(i);
NEXT i
PRINT
'--------- SORT -----------
DIM j AS INTEGER, t AS INTEGER
FOR i = 1 TO n
   FOR j = 1 TO n
      IF a(i) < a(j) THEN
         t = a(i): a(i) = a(j): a(j) = t
      END IF
   NEXT j
NEXT i
'---------------------------
t = a(1): j = 1
FOR i = 2 TO n
   IF a(i) = t THEN
      j = j + 1
   ELSE
      PRINT t; "-"; j
      t = a(i): j = 1
   END IF
NEXT i
PRINT t; "-"; j

<u>Пример</u>
N=10
7 5 2 7 3 3 5 9 7 6
2 - 1
3 - 2
5 - 2
6 - 1
7 - 3
9 - 1

0 0

2 года назад

Какие основные команды находятся в группе формат

blazzy [40]

Формат группы команды основные формат группа

0 0

4 года назад

Паскаль.Квадратную матрицу, размерностью не более 11, вывести на экран. Элементы и целые числа задаются случайным образом.Срочно

alexberg

Program Zadacha;
var
   matriza: array[1..11, 1..11] of integer;
   i, j : integer;
Begin
   randomize;

   for i:=1 to 11 do
       for j:=1 to 11 do
           matriza[i][j] := random(10);

   for i:=1 to 11 do
   begin
       for j:=1 to 11 do
           Write(matriza[i][j], ' ');
       WriteLn('');
   end;


   ReadLn;
End.

0 0

4 года назад

Сделать таблицу устройства ввода информации и устройства вывода информации

Т В Татьяна

устройства ввода: мышь, клавиатура, веб-камера, микрофон, сканер.

устройства вывода: наушники, принтер, колонки, экран

0 0

4 года назад