Прикладное программное обеспечение
Прикладное программное обеспечение! Так же к этому типу относятся:Офисные программы, мультимедиа, графика и дизайн, безопасность, игры и развлечения, интернет и сети.
1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.
dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь