Урок 3 Задача 18

Урок 3 Задача 18

Напишите программу, которая выводит на экран значения выражений
5 + 2*3
6+7
8*9

var
  a,
  b,
  c,
  d,
  e,
  f,
  g: integer;

begin
     a :=2;
     b :=3;
     c :=5;
     d :=6;
     e :=7;
     f :=8;
     g :=9;
  writeln(c+a*b); //в столбик
  writeln(d+e);
  writeln(f*g);

  write(c+a*b, ' '); //в стhjre
  write(d+e, ' ');
  write(f*g, ' ');
  readln();
end.  

вывод консоли

11
13
72
11 13 72

Урок 3 Задача 17

Урок 3 Задача 17

Объявите пять целочисленных переменных списком, ещё
две списком и ещё две по одной.
Тело программы можно сделать пустым.

var
  a,
  b: integer;
var
  c,
  d,
  e: integer;

var
  f: integer;
var
  g: integer;

begin
    g := 5;   // проверил, правильно ли заданы переменные
    a := 2;
    writeln(g+a);
    readln();
end.

Урок 2, Задача 14

Урок 2, Задача 14

Выведите хвост котика с помощью отдельных символов (симольных литералов), а всё остальное как угодно.

begin
         writeln('    ', '\','     /\');
        writeln('      ', ')','  ( *)');
        writeln('      ', '(','  /  )');
        writeln('       ', '\', '(__)|');
        readln();
end.

Вывод консоли
\ /\
) ( *)
( / )
\(__)|

Урок 2, Задача 13

Урок 2, Задача 13

В примерах выше мы выводили на экран робота,
выведите его же, но антенну (для которой используется
точка с запятой) выведите отдельной командой
как символьный литерал, всё же остальное любым способом.

begin
   write('        ');
   write(';');  //    антенн как отдельный литерал
    writeln(' ');
writeln('       ["]');

writeln('      /[_]\');
writeln('       ] [');
readln();
end.    

Вывод консоли

Урок 2, Задача 12

Урок 2, Задача 12

Выведите эту строку на экран 4-ре раза,
для каждого пункта используя один вызов writeln(),
без иного дополнительного кода :

Урок 2, Задача 11

Урок 2, Задача 11

Выведите на экран 222 -- первую цифру как число, а остальное как строку.

begin
     writeln(2, '22');
     readln();
end.

Вывод консоли

222

Урок 2, Задачи 10

Урок 2, Задачи 10

Выведите на экран 222 как строку

begin
     writeln('222');
     readln();
end.

Вывод консоли

222

Урок 2, Задачи 9

Урок 2, Задачи 9

Выведите на экран 22 как число

begin
     writeln('2');
     readln();
end.

Вывод консоли

2

Урок 2, Задачи 8

Урок 2, Задачи 8

Выведите на экран число 2 как символ

begin
     writeln('2');
     readln();
end. 

Вывод консоли

2

Урок 2, Задачи 7

Урок 2, Задачи 7

Выведите на экран число 2 как числовой литерал

begin
     writeln(2);
     readln(); 
end.

Pages

Subscribe to fkn+antitotal RSS