pascal 3 урок

10. Есть программный код:

b := 8; 
c := 9; 
// чему равно  "c" в этой строке ?
a := b + 3;
// чему равно  "c" в этой строке ?
a := с * 9 + c * a; 
b := 200 - a;
// чему равно  b в этой строке ?

1) Ответьте на вопросы в комментариях письменно.

1. с = 9 2. с = 9 3. b= 20

2) Запустите этот код, предварительно объявив используемые переменные, и выведите в консоль с
write() или writeln() значения переменных, в строках, где в комментариях к коду задан вопрос.

var a,b,c : integer;

begin
  b := 8;
  c := 9;
  a := b + 3;
  a := c * 9 + c * a;
  b := 200 - a;
  writeln(b);
  readln();
end.           

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

2)Сделайте то же самое, но выводя уже три переменные, каждой из которых предварительно
присвойте значение одного из арифметических выражений.

1)

 writeln(3+3, 9-8, 7*4)

2)

var a,b,c : integer;

begin
  b := 8;
  c :=  b + 9;
  a := b + 3;
  a := c - 9;
  b := 20 - a;
  writeln(a,b,c);
  readln();
end.               

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

 var  a, b, c, d, t : integer;
k , l : integer;
help : integer;
text :  integer;
begin
end.

18. Напишите программу, которая выводит на экран значения выражений

5 + 2*3
6+7
8*9

двумя способами (чтобы в консоли получилось оба варианта):

в столбик, разделив пробелами

begin

  writeln(5 + 2*3);
  writeln(6+7);
  writeln(8*9);
  readln();

end.                  

в строчку

 begin
   writeln(5 + 2*3, ' ', 6+7, ' ',8*9 );
   readln();
end.       

19. У вас есть целочисленная переменная a и два строковых литерала:

'У Васи'

и второй:

'яблок'

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

a:=5;

Должно выводиться:

У Васи 5 яблок

решение:

  var a : integer;
begin
  a := 8;
  writeln ('У Васи ', a, ' яблок');
  readln();
end.                          

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

Решение:

  var m,k, o : integer;
begin
  m := 13;
  k :=12;
  o := m + k;
  writeln (o);
  readln();

end.            

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

  var a, b, c : integer;
begin
  a := 3;
  b := 5;
  c := a * b - (a + b);
  write (c);
  readln();

end.