4 года назад

Напишите программу, которая находит среднее из трёх введённых чисел. Предполагается, что все три числа различные.

Знания

Информатика

1 ответ:

Анна30985 [2.9K]4 года назад

0 0

Var a,b,c:integer;begin readln(a); readln(b); readln(c); writeln((a+b+c)/3);end.

Читайте также

Последовательно по одному вводятся n целых чисел x, получить сумму тех чисел последовательности, которые удовлетворяют условию |

всяправда [2.6K]

Блок-схема - в прилагаемом файле.

0 0

1 год назад

Плиз, Срочно: Написать программу нахождения суммы и произведения всех трехзначных чисел кратных 3!

SkRIPacHv2 [588]

program raf105;

var i,sum,pro,a:integer;

begin

writeln('Вводите 5 чисел по очереди');

pro:= 1;

for i:=1 to 5 do

begin

readln(a);

if (a>=100) and (a<=999) and ((a mod 3)=0)

then

begin

sum+= a;

pro*= a;

end;

writeln('Сумма трёхзначных чисел кратных трём: ',sum);

writeln('Произведение трёхзначных чисел кратных трём: ',pro);

end.

<em><u>Язык PascalABC</u></em>

0 0

4 года назад

Сколько существует различных последовательностей из символов "плюс" и "минус" длиной ровно шесть символов? а)64 б)50 в)32 г)20

Penrulevich

По формуле Хартли: N = 2^6 = 64

0 0

4 года назад

Среди 20 вводимых чисел выберите все кратные 2 или кратные 5 и подсчитайте их сумму. (В Паскале)

марыська [7]

var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.

0 0

4 года назад

В электронной таблице при копировании содержимого ячейки С2 в ячейки В2 и С1 в них были занесены формулы =ВЗ+А$1 и =С2+В$1 соотв

Елена723519

При копировании формул влево-вправо изменяются буквы, а вверх-вниз числа. Но, это правило не касается абсолютных ссылок (присутствие рядом $)Судя по этим формулам в ячейке С2
=C3+B$1

0 0

1 год назад