Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.
Это на компе надо делать
Эт училка еб*нутая ,передай ей
ПОТОМУ ЧТО microsoft office - гав....о, мягко говоря
а так, попробуйте в окне, в низу есть такой раздел как форматы. Кликаете туда и ставите jpg png и т.д., что вам нужно.
если не получилось то проверьте, правильно ли у файла расширение, а так же стоит ли галочка в свойствах - скрыть? если стоит то отключаете
Var a : array[1..n] of integer;
b,i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
b:=a[1]; a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i],' ');
writeln
end.