Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program a1;
var i, j : integer;
s : real;
a: array [1..5, 1..6] of real;
b: array [1..6] of real;
begin
for i: =1 to 5 do
for j: =1 to 6 do
readln(a[i,j]);
s: =0;
for : =1 to 5 do
s: =s+a[i,j];
b[j]: =s
end;
write ('полученный массив в: ');
for j: =1 to d do
write(b[j]);
readln
end.
на паскале:
program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.
101110, 101111. в десятичной эти числа равны 46 и 47.
1951год.-введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.
Популярные вопросы