Типы даных .Выбери варианты ответа при которых переменая х принимает целыи тип данных

120

362

Посмотреть ответы 1

Ответы на вопрос:

kokocuk01

Информатика

4,4(95 оценок)

Program taska; var r1, r2: integer; procedure s(r1, r2: integer); var s: real; begin if r1 > r2 then s : = pi * (r1 * r1 - r2 * r2) else s : = pi * (r2 * r2 - r1 * r1); writeln('площадь кольца: ', s: 5: 2); end; begin write('r1 = '); readln(r1); write('r2 = '); readln(r2); s(r1, r2); readln; end.program taska; var r1, r2: integer; function s(r1, r2: integer): real; beginif r1 > r2 thenresult : = pi * (r1 * r1 - r2 * r2)elseresult : = pi * (r2 * r2 - r1 * r1); end; beginwrite('r1 = '); readln(r1); write('r2 = '); readln(r2); writeln('площадь кольца: ', s(r1, r2): 5: 2); end.