// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
2.4 Ответ 4
Так как Х больше двух и не равен 3. Остаётся только 4.
В 2.5 я вопроса не понимаю
Интуиция мне подсказывает, что ответ номер 3
По другому это называется "fps"- количество кадров в секунду.
Такое кол-во fps означает что у тебя очень мощный компьютер.
Это очень хорошо.