mnkrasnova
?>

перевести с Паскаля на С++ program n; const n = 4; var i, j, k : integer; a : array[1..n, 1..n] of real; begin for i:=1 to n do begin for j:=1 to n do begin a[i][j]:=sin((i*i + j*j) / n); } write(a[i][j], ' '); end; writeln; end; for i:=1 to n do for j:=1 to n do if(a[i][j]>0) then k:=k+1; writeln('положительных элементов = ', k); readln; end.

Информатика

Ответы

cochana

Program z1;

uses crt;

var x: read;

z,d:integer;

begin

clrscr;

write( "Введите число_")

realden(x);

x:=x*10;

z:=trunc(x);

d:=z mod 10;

writeln("первая цифра дробной части=",d);

readkey;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

перевести с Паскаля на С++ program n; const n = 4; var i, j, k : integer; a : array[1..n, 1..n] of real; begin for i:=1 to n do begin for j:=1 to n do begin a[i][j]:=sin((i*i + j*j) / n); } write(a[i][j], ' '); end; writeln; end; for i:=1 to n do for j:=1 to n do if(a[i][j]>0) then k:=k+1; writeln('положительных элементов = ', k); readln; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Sergei1805
сергей1246
fitzhu
Кристина_Memmedov
eronch
ольга1801
Александрович686
bsi771184
araqsyabadalyan1988
Федорович Шахова241
sodrugestvo48
shurshin6975
rayman777
kazimov832
mpityk