Информатика: найти среднее арифметическое массива из 5 целых чисел.

1) var a,b,x,y: longint; begin write( vvedite nachalo i konec otrezka: ); read(a,b); write( vvedite x: ); read(x); y: =sqr(x)*x; if (y a)and(y b) then write( na dannom otrezke znachenie funkcii ravno ,y) else write( na dannom otrezke net reshenii ); readln end. 2) var c,i: byte; begin for i: =49 to 215 do if (i mod 4=0) then c: =c+1; write( kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ,c); readln end. 3) var i: integer; p: longint; for i: =1000 to 9999 do if (i mod 10=3) then p: =p*i;...

Мила3287

04.08.2022 23:19

Информатика

Есть ответ 👍

"найти среднее арифметическое массива из 5 целых чисел."

150

215

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

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

RinaZum

Информатика

4,4(88 оценок)

var

x,s: extended;

i: longint;

begin

for i: =1 to 5 do begin read(x); s: =s+x; end;

write(s/5);

end.

mpaxomow

Информатика

4,5(72 оценок)

var a,b,x,y: longint;

begin

write("vvedite nachalo i konec otrezka: ");

read(a,b);

write("vvedite x: ");

read(x);

y: =sqr(x)*x;

if (y> a)and(y< b) then write("na dannom otrezke znachenie funkcii ravno ",y) else write("na dannom otrezke net reshenii");

readln

end.

var c,i: byte;

begin

for i: =49 to 215 do

if (i mod 4=0) then c: =c+1;

write("kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

var i: integer;

p: longint;

for i: =1000 to 9999 do

if (i mod 10=3) then p: =p*i;

write("proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

var i: byte;

c: integer;

begin

for i: =221 to 778 do

if ((i mod 10)=(i div 100)) then c: =c+1;

write("kolichestvo chisel ravno ",c);

readln

end.

var i: longint;

c: integer;

begin

for i: =10000 to 99999 do

if ((i mod 10)=(i div 10000)) mod 100)div 10)=((i div 1000)mod 10)) then c: =c+1;

write("kolichestvo chisel ravno ",c);

readln

end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.