1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
80+80= 160 строк ( 2 страницы вместе) 32+32=64 символа
160+64= 224 символа на 2 страницах! 224×8= 1792 бита (сори) (
A=[]
sum=0
while True:
c=int(input())
if c==0:
break
a.append(c)
for d in a:
sum+=d
print(sum)
<span>Система команд исполнителя «Чертежник» включает 6 команд:
</span>опустить пероподнять перосместиться в точку (X, Y)сместиться на вектор (dX, dY)установить цвет (цвет)надпись (ширина, текст)
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение: