fkn+antitotal

Immer only supports setting array indices and the 'length' property

Проблема возникает в случае, если у вас был массив (в моем случае пустой), а вы пытаетесь обратиться к его полю, будто к объекту и что-то туда записать.

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:

одним вызовов write (все три) -- т.е. передав несколько аргументов.

var a, b, c : char;
begin
   a := 'f';
   b := '%';
   c := 'b';
   writeln(a, ' ', b, ' ', c);
   readln();
end.
          

отдельно вызывая writeln для вывод значения каждой переменной

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

begin
   writeln(8>9.55, ' ', 8<9.55);
   readln()
end.

Пользователь вводит два значения, одно целое, а другое вещественное, проверьте больше ли первое число второго, выведя на экран надпись (как это делается в примерах выше).

[к оглавлению]

Иногда нам нужно извлечь данные не в том формате, в котором они хранятся в таблицах. Например:

Следующая страница. Функции для обработки данных
Оглавление.

Решение задачи 15 из главы 13.1

15. С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project15;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, ':', i, ' = ', a div i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 14 из главы 13.1

14. С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

program Project14;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, '*', i, ' = ', a*i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 13 из главы 13.1

13. Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)

Решение задачи 12 из главы 13.1

12. Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат