Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
в блок схемах не сильна
var n: integer;
s,s0: real;
begin
n: =1;
s: =10;
repeat
n: =n+1;
s: = s + (100+p)*s0/100;
s0: =(100+p)*s0/100;
until s> 200;
writeln(s);
end.
d: /лето/фото/125.jpg
d: /документы/экзамен/информатика
x на первом
у на втором
х+2=у
х+22=3у
отнимаем первое от второго
20=2у
у=10
х=у-2=8
Популярные вопросы