Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>
#include <iostream>
using namespace std;
pair<float, float> function_frac(float A, float B, float C, float D) {
return make_pair((A * D) / (B * C), (A * C) / (B * D));
}
int main()
{
setlocale(LC_ALL, "Russian");
float A;
cout << "Введите A:";
cin >> A;
float B;
cout << "Введите B:";
cin >> B;
float C;
cout << "Введите C:";
cin >> C;
float D;
cout << "Введите D:";
cin >> D;
pair<float, float> pair_F = function_frac(A, B, C, D);
cout << "Деление дроби на дробь равно: " << pair_F.first << endl << "Умножение дробей равно: " << pair_F.second;
}
Алгоритм - это способ (программа) решения вычислительных и других задач, точно предписывающий, как и в какой последовательности получить результат, однозначно определяемый исходными данными. Алгоритм - одно из основных понятий математики и кибернетики. В вычислительной технике для описания алгоритма используют языки программирования.
Есть программа онлайн перевода из любой СС в любую