Var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k = ');readln(k);a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из ',a,' яиц');end.
Const n=6; m=4;
var
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
25 4 33 17
19 23 42 9
36 40 1 48
21 44 13 18
38 29 8 7
24 13 5 13
Полученный массив:
25 4 33 17
19 23 42 9
38 29 8 7
21 44 13 18
36 40 1 48
24 13 5 13
Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>'Введите число: '</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>'Ответ: ',</em>a);
end.
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.
Модуля́ция<span> (лат. modulatio — размеренность, ритмичность) — процесс изменения одного или нескольких параметров высокочастотного несущего колебания по закону низкочастотного информационного сигнала (сообщения).
</span>Демодуляция<span> (Детектирование сигнала) — процесс, обратный модуляции колебаний, выделение информационного (модулирующего) сигнала из модулированного колебания высокой (несущей) частоты</span>