Вариант в Excel.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаете защиту, копируете элементы, получаете ответ.
1)
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n, sum = 0, k;
cin >> n >> k; //ввести размерность массива и требуемое k
int a[n];
for(int i = 0; i < n; i++) {
cin >> a[i]; //вводим массив
if(a[i]%k == 0) { cout << a[i] << endl; sum+=a[i]; }
}
cout << sum << endl;
}
2)
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n, sum = 0, k;
cin >> n;
int a[n], b[n], lenB = 0;
for(int i = 0; i < n; i++) {
cin >> a[i]; //вводим массив
if(a[i] == 0) b[lenB++] = i;
}
for(int i = 0; i < lenB; i++) cout << b[i] << ' ';
cout << endl;
}
PascalABC.NET
1)
var
a:String = 'лекарство';
b,c,d:String;
begin
b:= copy(a,1,2);
c:= copy(a,7,1)+copy(a,9,1);
d:= copy(a,8,2);
WriteLn(b+c);
WriteLn(b+d);
end.
2)
var a:String = 'нитка';
begin
WriteLn(a);
a:= a.Replace('ит','ер');
WriteLn(a);
a:= a.Replace('е','о');
WriteLn(a);
a:= a.Replace('нор','кри');
WriteLn(a);
a:= a.Replace('рик','ниг');
WriteLn(a);
a:= a.Replace('кни','пур');
WriteLn(a);
end.
3)
var a,b,c,d,e,f:String;
begin
a:='кормила';
b:='ку';
c:='ка';
d:='ш';
e:='он';
f:=' ';
WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);
end.
P.S программа написана для Pascal.
program grafic;
var
a, b, k : real;
begin
writeln('Введите координаты а- это x, а b- это y ');
writeln('a=');
read(a);
writeln('b=');
read(b);
k:=5*a*a-7*a+2;
writeln(k);
if (b=k)then
writeln('точка принадлежит графику y=5x^2-7x+2')
else
writeln('Точка не принадлежит графику y=5x^2-7x+2');
end.
Пример:
a=0 b=2 - точка принадлежит графику;
a=1 b=1 - точка не принадлежит графику.
На телефоне нет программ для программирования (создания программ)