program z;
var i,a,a1,s:integer;
begin
writeln('Двухзначные числа, квадрат суммы цифр которых делится 13');
for i:=10 to 99 do
begin
a:=i;
s:=0;
while a<>0 do
begin
a1:=a mod 10;
s:=s+a1;
a1:=a div 10;
a:=a1;
end;
if sqr(s) mod 13=0
then
writeln(i);
end;
end.
5*10(1)+1*10(0)+2*10(-1)+7*10(-2) в скобках степень
1*2(3)+0*2(2)+1*2(1)+1*2(0) тоже степень в скобках
0.75(10) = 0.11(2)
Сканер может создавать файл "Фото", когда ты фотографируешь текст, ты не можешь редактировать текст на нём.
Если я не ошибаюсь есть программа которые считывают текст со сканера.
10. 1
11. вообще зависишь от программы... Ну а так лично у Меня на компе можно создашь все списки: 1;2;3
<span><span>program massiv6;
</span><span>02.<span>uses crt;
</span></span><span>03.<span>const N=10;
</span></span><span>04.<span>type x=array [1..<span>N] </span>of integer;
</span></span><span>05.<span>var a:x;
</span></span><span>06.<span>i:integer;
</span></span><span>07.<span>s:integer;
</span></span><span>08.begin
</span><span>09.clrscr;
</span><span>10.randomize;
</span><span>11.<span>for i:=1 to <span>N </span>do
</span></span><span>12.begin
</span><span>13.<span>a[i]:=-100+random(201);
</span></span><span>14.<span>write (A[i]:5)
</span></span><span>15.<span>end;
</span></span><span>16.<span>writeln;
</span></span><span>17.<span>s:=0;
</span></span><span>18.<span>for i:=1 to <span>N </span>do
</span></span><span>19.<span>if a[i]>0 then
</span></span><span>20.begin
</span><span>21.s:=s+a[i]
</span><span>22.<span>end;
</span></span><span>23.<span>writeln (‘Сумма положительных элементов = ’,s:5);
</span></span><span>24.readln
</span><span>25.<span>end<span>.</span></span></span></span>