Ответ №2 (=A2/С1)
__________________
Var
x, y: longint;
i: integer;
begin
for i := 1 to 5 do
begin
Write('Введите число: ');
Readln(x);
y := sqr(x);
if (y mod 2) = 0 then Writeln('Четное')
else Writeln('Квадрат числа равен ', y)
end
end.
Тестовое решение:
Введите число: 1
Квадрат числа равен 1
Введите число: 2
Четное
Введите число: 3
Квадрат числа равен 9
Введите число: 4
Четное
Введите число: 5
Квадрат числа равен 25
<h2>Входные данные</h2>
Целочисленный тип
<h2>Выходные данные</h2>
Вещественный тип
<h2>Объяснение</h2>
Вещественный тип, потому что при делении не вещественных типов они приводятся к вещественным (чаще всего double для небольших (в диапазоне double) чисел) Безусловно, у Вас может получиться такой ответ:
(1 + 3 + 2) / 3 = 6 / 3 = 2 - целочисленный тип.
А теперь давайте подставим входные числа:
(3 + 7 + 1) / 3 = 11 / 3 = 3.6 - вещественный тип. Именно из-за такой неопределённости компилятору легче приводить всё к double.
Объяснение:
В квадратных скобках указывается порядковый номер числа константы "b", т.е. число 11 стоит на 5 месте относительно других значений в массиве, как это указано в квадратных скобках.
Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>