Упр.178 ГДЗ Рабочая тетрадь Босова 8 класс (Информатика)

Ниже вариант решения задания из учебника Босова 8 класс, Бином:

178. Напишите программу, которая вычисляет:

а) дискриминант квадратного уравнения:

program DD;

var

a, b, c, d: integer;

begin

write(taskвведи a, b, c) >task);

readln(a, b, c);

d := sqr(b) + 4 * a * c;

writeln(taskD=task, d);

end.

б) площадь кольца, если его толщина t см, а диаметр внутреннего круга - d см:

program SS;

var

t, d: integer;

s: real;

begin

write(taskвведи t и d >task);

readln(t, d);

s := pi * sqr(d + t) - pi * sqr(d);

writeln(taskS=task, s);

end.