Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответь дан на рисунке рисунке
ввод x = 1, y = 3
x = 3 - 1= 2
y = 2 * 2 = 4
x = 2 * 4 + 2 = 10
y = 4 + 10/2 = 9
вывод x = 10, у = 9
ответ. в результате работы программы получим: х = 10, у = 9.
var
a: [1..100] array of integer;
i,n,p: integer;
begin
readln(n);
for i: =1 to n do
readln(a[i]);
p: =2;
while (p*p< =a[i]) do
if p*p=a[i] then writeln (a[i],' полный квадрат')
p: =p+1;
end;
end.
Популярные вопросы