4 года назад

Помогите с этим заданием, пожалуйста!

Знания

Информатика

2 ответа:

fidiy4 года назад

0 0

Вы вводите 2 числа,затем он выведет произведение суммы и разности этих чисел.

Valentina15094 года назад

0 0

Произведение суммы на разность

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

Напишите программы на PascalABC.Net Задача №4: Напишите программу, которая в последовательности натуральных чисел определяет мак

Ильдар Шарафутдинов

begin

ReadSeqIntegerWhile(p -> p <> 0)

.Where(p -> p < 200)

.Max

.Println

end.

0 0

3 года назад

Помогите пожалуйста :(Какое программное обеспечение нужно людям в следующих ситуациях?Выпускники 11 класса подготовили фотоальбо

tvoinarkotiki [6]

Ответ:

Системное ПО: ОП-операционная система. Windows, Linux, Mac OS

Прикладное ПО: My Photo Books - средство, предназначенное для создания красивых цифровых фотоальбомов. Adobe Photoshop

Инструментальное ПО: Paint.NET

Объяснение:

0 0

4 года назад

Известно кол-во ссылок, которые находит поисковый сервер по следующим запросам: собаки - 200 кошки - 300 Кошки | собаки - 450 ск

Пасечник Сергей Л...

Ответ:

Тебе надо чертить круги эллера,ну а так ответ

Объяснение:

200+300-450 = 50 страниц

0 0

4 года назад

Подсчитать количество элементов в массиве A[1...10] кратных 6 и выписать среднее арефметическое

Ivan19891 [60]

//PASCAL ABC.NET

var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.

0 0

4 года назад

Дан массив из 10 элементов. 1. Найти сумму чётных элементов 2.Найти произведения элементов,стоящмх на нечетных местах 3.Найти ко

Ксения003 [17]

Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.

0 0

4 года назад