То что под галочкой решите ПЖ, чтоб оценку исправить

Знания

Информатика

1 ответ:

SV-ART GALLERY4 года назад

0 0

вот,всё в картинке ниже:

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

Вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. Pascal

ilkk [4]

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

begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.

Пример
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6

0 0

2 года назад

Упростить выражение а+а(вектор) p.s. над двумя буквами а расположена длинная черта как общий вектор

shults55584 [44]

А вектор + а
Отрицание на отрицание дает положительный ответ

0 0

4 года назад

Напишите программу к задаче. Найти количество отрицательных чисел, вводить пока не будет 3.

Viktorinna [119]

1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:

var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.

2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:

var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.

0 0

4 года назад

Задан массив А из 10 целых чисел. Найти среднее арифметическое всех элементов массива.

bacara [13]

Var a:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum/10)
end.

0 0

1 год назад

Переведите из 2 в 10 число 11111101

777bkmz7777 [14]

11111101=253
....................

0 0

4 года назад

То что под галочкой решите ПЖ, чтоб оценку исправить​

То что под галочкой решите ПЖ, чтоб оценку исправить