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

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

7. Вам нужно получить от пользователя два вещественных числа и ещё два целых, запишите все эти 4 значения в переменные и выведете значения переменных на экран, чтобы было ясно значение какой переменной чему равно.

program Project1;
 var a, b: integer;
   c, d: real;
begin
  writeln('Vvedite zeloe chislo i nazhmite knopku ENTER: ');
  readln(a);
  writeln('Vvedite vtoroe zeloe chislo i nazhmite knopku ENTER: ');
  readln(b);
  writeln('Vvedite veschestvennoe chislo i nazhmite knopku ENTER: ');
  readln(c);
  writeln('Vvedite vtoroe veschestvennoe chislo i nazhmite knopku ENTER: ');
  readln(d);
  writeln('Vy vveli takie chisla:');
  writeln('Pervoe zeloe chislo: ', a, ',');
  writeln('Vtoroe zeloe chislo: ', b, ',');
  writeln('Pervoe veschestvennoe chislo: ', c, ',');
  writeln('Vtoroe veschestvennoe chislo: ', d, '.');
  readln();
end.

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

program Project1;
 var a: integer;
   b, result: real;
begin
  writeln('Vvedite zeloe chislo i nazhmite ENTER:');
  readln(a);
  b := 1.2;
  result := a * b;
  writeln('Vy vveli chislo ', a);
  write(a, ' * 1.2 = ', result);
  readln();
end.

9. Получите от пользователя значений трех чисел -- два целых и одно вещественное и выведите на экран значение их суммы.

program Project1;
 var a, b: integer;
   c, result: real;
begin
  writeln('Vvedite zeloe chislo i nazhmite ENTER:');
  readln(a);
  writeln('Vvedite vtoroe zeloe chislo i nazhmite knopku ENTER: ');
  readln(b);
  writeln('Vvedite veschestvennoe chislo i nazhmite knopku ENTER: ');
  readln(c);
  writeln('Vy vveli takie chisla: ', a, ', ', b, ', ', c);
  result:= a + b + c;
  write('Summa vvedennyh vami chisel ravna: ', result);
  readln();
end.