1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
1)
П0 1 ВП 3 / [x] П1 С/П П0 ИП1 1 ВП 3 * - С/П
Инструкция: граммы В/О С/П. Результат: килограммы С/П граммы.
2)
^ 1 ВП 4 / [x] С/П
Инструкция: ары С/П.
Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
__
( 0 )
_ | _
\ \ | / /
-----------------
N=int(input())
y=0
for i in range(1,2*n,2):
y+=i
print(y)