fkn+antitotal

Видео-урок

• Телеграм: https://t.me/prgblg/43
• ВК: https://vkvideo.ru/video-58271214_456239487
• Ютуб: https://youtu.be/q0kvU_wgs6s

Видео-урок

1. Телеграм: https://t.me/prgblg/42
2. ВКонтате: https://vkvideo.ru/video-58271214_456239486
3. Ютуб: https://youtu.be/_EgpYVApJuw

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

Напишите программу с тремя переменными целого типа, первым двум присвойте значения, а третьей переменной их произведение за вычетом их суммы (например, для значений 5
и 2 должно получиться выражение эквивалентное: 5∗2−(5+2)). Выведете значение третей переменной на экран.

var
m,
k,
n: integer;

begin
     m :=15;
     k :=13;
     n := m*k-(m+k);
  writeln(n);
  readln();
end.

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

167

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

Васе m лет, а Паше k лет. Напишите программу, в которая считает их разницу между их суммарным возрастом и разностью их возрастов. Конкретные значения возрастов этих двух человек задайте в коде в виде двух переменных, которым присвойте значения целочисленных литералов. Результат запишите в третью переменную и выведите значение на экран.

var
m,
k,
n: integer;
 
begin
     m :=15;
     k :=13;
     n := m-k;
  writeln(n); 
  readln();
end.

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

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

Васе m лет, а Паше k лет.
Напишите программу, в которая считает их суммарный возраст и выводит значение на экран. Конкретные значения возрастов этих двух человек задайте в коде в виде двух переменных, которым присвойте значения целочисленных литералов. Результат суммы запишите в третью переменную и выведите значение на экран.

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

Присвойте переменной a
значение и выведете на экран фразу с этим значением -- используя указанные выше литералы (можно не только их, но их обязательно).

var
  a: integer;

begin
     a :=5;
  writeln('U Vasi ',a, ' yblok'); //в столбик
  readln();
end. 

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

U Vasi 5 yblok

Урок 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

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

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

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

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

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

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

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

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

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

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