Yusyanya, могу дать исходник перовй задачи на украинском, переводил добросовестно, через переводчик

Может кто нибудь помочь. Задача: Дано значение x и натуральное число n. Вычислить сумму S, не используя операцию возведения в степень. wap.upwap.ru/907413 n=10

Koнpaд, навскидку var i,n,s,t,x:integer; begin readln(x,n); s:=0; t:=1; for i:=1 to n do begin t:=t*sin(x); s:=s+t; end; end.

а что такое t?

Koнpaд, временная переменная.

Dev!dBelle, дай в оригинале, ато ощущение как будто её через три переводчика прогнали.

построить изображение upwap.ru/912478 чёрные квадраты соответствуют высвечиваемым точкам, белые точкам котрые не высвечиваются ///помогите плиз

~CREW~, upwap.ru/914660

Всем привет. Помогите, пожалуйста, написать код программы к задачкам:
1.В двух данных словах найти максимальную общую часть
2. Удвоить наибольший элемент массива X [1 ..N ] и вывести измененный массив
3. Определить в двумерном массиве максимальный элемент и его координаты, считая, что он единственный.

Неактуально.

Kirw81Oi,ЗАДАЧА 2. uses crt; var x:array [1..100] of integer; i,max,n,k:integer; begin clrscr; randomize; readln(n); for i:=1 to n do begin x:=random(10)+0; write(x:3); end; writeln; max:=x[1]; k:=1; for i:=1 to n do if x>max then max:=x; for i:=1 to n do begin if x=max then x:=x*2; write(x:3); end; end.

Kirw81Oi,ЗАДАЧА 3. uses crt; var a:array [1..100,1..100] of integer; i,j,max,n,m,k,t:integer; begin clrscr; randomize; readln(n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(200)-100; write(a[i,j]:4); end; writeln; end; writeln; max:=a[1,1]; k:=1; t:=1; for i:=1 to n do for j:=1 to m do if a[i,j]>max then begin max:=a[i,j]; k:=i; t:=j; end; write("max=",max," koordinati ",k," ",t); end.