Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ввод 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.
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
x,a,b: real;
i: integer;
x: =100000;
for i: =1 to 8 do
a: =x*0.12;
b: =x*0.20;
x: =x+b-a;
writeln(x);
р треугольника= сложить все стороны
Популярные вопросы