Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
№1. программа на паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n: =1 to 10 do
x[n]: =sqr(n) + 5;
wreteln('последовательность х: ')
write(x[i]);
readln
end.
var a,b,c,s,p: real;
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
вроде так
1+2+3-4+5-6=1
1+2+3+4/5+6-7=1
1+2+3-4+5-6+7/8=1
var i: integer;
s: string;
s: ="abcdefghijklmnopqrstuvwxyz";
for i: = 1 to length(s) do
writeln(s[i],' = ', ord(s[i]));
Популярные вопросы