Если сумма цифр делиться на три то число тоже делиться на три
Например:123-1+2+3=6/3=2 значит и 123 делиться на два(будет 41)
#1
var
mas:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum/10);
end.
#2
var
mas:array[1..15] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 15 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum);
end.
#3
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
mas[i]:=mas[i]+10;
write(mas[i],' ');
end;
end.
<span>Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
</span>Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
<span>Барометр нужен для измерения атмосферного давления.
</span><span>Компас нужен для ориентирования по магнитным полюсам Земли.
</span><span>Телескоп нужен для того, чтобы увидеть отдалённые объекты.
</span><span>Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
</span>Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2