Информатика: с информатикой(только через паскаль)

с информатикой(только через паскаль)

👇

Увидеть ответ

Ответ:

kristpan2004p0c22v

09.07.2021

var

x , counter , sum :integer;

begin

read(x);

counter := 0;

while (x <> 0) do begin

sum := sum + x;

if( x mod 5 = 0 ) and ( x mod 2 = 0 ) then

counter := counter + 1;

read(x);

end;

write(sum,' ', counter);

end.

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

Открыть все ответы

Ответ:

64738248585884847

09.07.2021

4 а)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
б)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]-a[i]*2;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
end.
5 a)
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if (i>2) and (a[i]>a[i-1]) then
k:=k+1;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во элементов больших соседа слева ',k);
end.
5 б)
const n=10;
var a:array[1..n] of integer; z,i,k:integer;
begin
k:=0;
z:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
k:=k+1;
if k=2 then
begin
k:=0;
z:=z+1;
end;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Кол-во четных пар: ',z);
end.
6 а)
const n=10;
var a:array[1..n] of integer; s,k,i:integer;
sr:real;
begin
s:=0;
k:=0;
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((a[i] mod 2) = 0) and ((i mod 2) <> 0) then
begin
s:=s+a[i];
k:=k+1;
end;
end;
sr:=s/k;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
writeln;
write('Среднее арифметическое четных элементов с нечетными индексами: ',sr);
end.

4,8(17 оценок)

Ответ:

дуда1

09.07.2021

1. Если число оканчивается на 6, то оно четное согласно признаку делимости на 2, поэтому проверка на четность не нужна.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
var k:=a.Where(t->t mod 10=6).Count;
if k>0 then Writeln(k)
else Writeln('Нет')
end.

Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2

2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой одинаковых соседних элементов...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,0,100); a.Println;
var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
if k>0 then Writeln(k)
else Writeln('Нет')
end.

Пример
60 41 87 87 95 75 72 32 8 52
1

4,7(94 оценок)

Это интересно:

Компьютеры-и-электроника

11.02.2022

Как установить новые модели машин в GTA 4: подробная инструкция...

Дом-и-сад

29.04.2023

Как правильно покрасить кожаный диван: секреты и советы...

Здоровье

16.08.2022

Как найти гипнотерапевта: советы и рекомендации...

Дом-и-сад