#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int k=0,s=0,n;
cout<<"Введите размер массива: ";
cin>>n;
int a[n];
for (int i=0; i<n; i++) cin>>a[i];
cout<<"\nВведите K: ";
cin>>k;
for (int i=0; i<n; i++) if (a[i]%k==0) s+=a[i];
cout<<"\nСумма чисел кратных "<<k<<" = "<<s<<endl;
system("PAUSE");
}
У тебя запятые в скобках немного не на местах стоят
program pr;var m:string;beginread(m);writeln('Мой повелитель', ' ', m);end.
Если введёшь с всё имя, то всё будет стоять на месте.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
<u>Результат</u>
91
Недостатки:
• Бизнес-логика функциональной обработки и представление данных могут быть одинаковыми для нескольких клиентских приложений, и это увеличит совокупные потребности в ресурсах при исполнении вследствие повторения части кода программ и запросов;
<span>• Низкий уровень управления непротиворечивостью информации, так как бизнес-правила функциональной обработки, сосредоточенные на клиентской части, могут быть противоречивыми.</span>
Компьютер ,который подключается в сеть Процессор