Регистрация
Arseni01
21.03.2020 11:56
Информатика
Есть ответ 👍

Примером хранения числовой информации может служить

167
317
Посмотреть ответы 2

Ответы на вопрос:

StasNiku
StasNiku
4,7(78 оценок)
Таблица значений тригонометрических функций,
frossbaf
frossbaf
4,8(3 оценок)

var a,r: real;

begin

readln(a,r);

if a> 2*r then writeln('proidet') else writeln('ne proidet');

end.

 

var a: array[1..100]of integer;

s,i,n: integer;

begin

readln(n);

for i: =1 to n do readln(a[i]);

for i: =2 to n-1 do begin

if a[i]< (a[i-1]+a[i+1])/2 then s: =s+1;

end;

writeln(s);

end.

 

function fib(b: integer): integer; begin if (b< =1) then fib: =b else fib : = fib(b - 1)+fib(b - 2) ; end;

var a: integer; beginreadln(a); writeln(fib(a)); end.

 

var m,k: integer;

begin

readln(m);

k: =m div 4;

writeln(k);

end.

 

var a: array[1..10]of integer; i,n,k: integer; beginreadln(n); for i: =1 to n do readln(a[i]); for i: =1 to (n div 2) do begink: =a[n-i+1]; a[n-i+1]: =a[i]; a[i]: =k; end; for i: =1 to n do write(a[i],' '); end.

Популярно: Информатика