Var n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
while n <> 0 do
begin
sum:=sum+n mod 10;
n:=n div 10;
end;
writeln ('Summa: ',sum);
end.
Uses crt;
const N = 5;
var a:array [1..N,1..N] of real;
i,j:integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
if (i > j) then
a[i,j]:= sin(i+j);
if (i = j) then
a[i,j]:= 1;
if (i < j) then
a[i,j]:= cos(i-j);
end;
for i:=1 to N do
for j:=1 to N do
begin
write(a[i,j]:4:2,' ');
if (j = N) then
writeln(' ');
end;
<span>end.</span>
Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи
Может поможет
</span>
Попробуй заменить как у меня, но честно не знаю, везде работает и сайт выдаёт всё правильно...
Есть специальный калькулятор на компьютере либо в интернете