Задачу можно решить с помощью простой программы:
var n1,n2,i,j:integer;
begin
n1:=67;n2:=54;
for i:=1 to 100 do
for j:=1 to 100 do
if n1*i-n2*j = 10 then writeln(i,' ',j);
<span>end.

В ответе получим 34 и 42.
67*34-54*42=2278-2268=10
Если вместо 100 задать другие значения, то получим и другие решения задачи.</span>

0 0

4 года назад

Составить программу, которая формирует массив А из 85 случайных целых чисел, принадлежащих промежутку [4;14]. Параметром цикла я

zviadi

Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
<span>End Sub</span>

0 0

3 года назад

Дан массив A целых чисел, содержащий 30 элементов. Вычислить и вывести количество и сумму тех элементов, которые делятся на 5 и

Shuuks [50]

Ответ:

Объяснение:

using System;

public class Program

{

public static void Main()

{

int[] A = new int[30];

var rand = new Random();

for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100

A[i] = rand.Next(0, 100);

int kolichestvo, summa;

kolichestvo = 0;

summa = 0;

for(int i = 0; i < 30; i ++) //цикл по элементам массива

{

if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком

{

if((A[i] % 3) != 0)

{

kolichestvo = kolichestvo + 1;

summa = summa + A[i];

}

Console.Write("Сумма: ");

Console.Write(summa);

Console.Write(" Количество: ");

Console.Write(kolichestvo);

}

0 0

4 года назад

Помогите решить срочно !!!

Кадеточка [191]

1) 6
2) 9
3) 10
4)7
_______

0 0

4 года назад