Program Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.
Нужно написать программу. Держи:
П0 1 0 / {x} 1 0 * ИП0 1 0 0 / - x=0 18 1 С/П 0 С/П
Выводит 1, если совпадают, и 0, если нет.
И да и Нет, т.к не содержит достаточное колличество данных. Но нотная запись может быть преобразованна в алогоритм музыкантом. Он сам может определить в какой такт времени каким пальцем какой рукой что делать...
1)
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2)
var x:longint;
begin
readln(x);
if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);
end.
3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.
var a:array[1..50] of integer;
var i:integer;
begin
for i:=1 to 50 do a[i]:=i;
for i:=1 to 50 do writeln(a[i]);
end.