№1 ошибка (а+а) Должно быть (а+б)
№ 2 и № 3 не знаю!
//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
Const N=5; M=6;
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do
For j:=1 to M do
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin
For j:=1 to M do
Write(A[i,j],' ');
Writeln;
end;
end;
begin
input(1,1);
output(1,1);
<span>end.</span>
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;
}
Первым изобретателем, механических счетных машин, стал гениальный француз Блез Паскаль. Сын сборщика налогов, Паскаль задумал построить вычислительное устройство, наблюдая бесконечные утомительные расчеты своего отца. В 1642 г., когда Паскалю было всего 19 лет, он начал работать над созданием суммирующей машины. Паскаль умер в возрасте 39 лет, но, несмотря на столь короткую жизнь, навечно вошел в историю как выдающийся математик, физик, писатель и философ. В его честь назван один из самых распространенных современных языков программирования.
Суммирующая машина Паскаля, «паскалина», представляла собой механическое устройство - ящик с многочисленными шестеренками. Всего приблизительно за десятилетие он построил более 50 различных вариантов машины. При работе на «паскалине» складываемые числа вводились путем соответствуюшего поворота наборных колесиков. Каждое колесико с нанесенными на него делениями от 0 до 9 соответствовало одному десятичному разряду числа - единицам, десяткам, сотням и т. д. Избыток над 9 колесико «переносило», совершая полный оборот и продвигая соседнее слева «старшее» колесико на 1 вперед. Другие операции выполнялись при помощи довольно неудобной процедуры повторных сложений.
