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

задачи из главы 3

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

var a, b, c, d, e : integer;
f, g : integer;
h : integer;
i : integer;
begin
end.

18. Напишите программу, которая выводит на экран значения выражений:
5 + 2*3
6+7
8*9
двумя способами (чтобы в консоли получилось оба варианта):
• в столбик, разделив пробелами
• в строчку

1.

var a, b, c : integer ;
begin
a := 5+2*3;
b :=6+7;
c := 8*9;
writeln(a);
writeln(b);
write(c);
end.

2.

var a, b, c : integer ;
begin
a := 5+2*3;
b :=6+7;
c := 8*9;
write(a, b, c);
end.

19. У вас есть целочисленная переменная a и два строковых литерала:
'У Васи'
и второй:
'яблок'
Присвойте переменной a значение и выведете на экран фразу с этим значением -- используя указанные выше литералы (можно не только их, но их обязательно), например для:
a:=5;
Должно выводиться:
У Васи 5 яблок

var a : integer ;
begin
a := 5;
write('Vasia has', ' ', a, ' ', 'apples');
end.

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

var m, k, r: integer ;
begin
m := 10;
k := 13;
r := m + k;
write(r);
end. 

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

var f, d, sum: integer ;
begin
f := 10;
d := 13;
sum := f * d - (f + d);
write(sum);
end.