4 года назад

Дано четырехзначное число. Определить является ли оно палиндромом. — для этой программы составить блок схему.

Знания

Информатика

2 ответа:

qsh4 года назад

0 0

Спрашивайте, если что-то не разберете в моем не лучшем почерке.

РомаКу [7]4 года назад

0 0

Блок-схема приведена во вложении

Читайте также

Составить программу, которая создает массив из 6 случайных чисел, принадлежащих [20;120] и вычисляет сумму элементов этого масси

Шерлок221 [11]

Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.

0 0

4 года назад

Pascal ABC PLS HELP ME второе пожалуйста

igraem

Program NoName;

Var vid,i,n,k,max:integer;

sr:real;

a:array[1..9999] of integer;

Begin

mx:=0;

max:=0;

k:=0;

vid:=0;

sr:=0;

Read (n);

For i:=1 to n do

Begin

Writeln(a[i] :3);

max:=a[1];

If a[i] > max then

max:=a[i];

If a[i] < 0 then

Begin

vid:=vid + a[i];

k:=k+1;

End;

sr:=vid / k;

For i:=1 to n do

Begin

If a[i] < max then

Write (a[i])

Else

Write (sr);

End;

End.

Не могу быть уверенным за правильность, нет возможности проверить

0 0

4 года назад

Объясните пожалуйста,как это сделать? Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии.

nadtrub1985

Начальные координаты обозначешь за х и у
составляешь систему:
х+7(-1-2+4)=1
у+7(2+2-5)=1

получается, что
х=-6
у=8

это и есть начальные координаты

0 0

3 года назад

Сообщение занимает 4 страницы по 64 строк. В каждой строке по 16 символов.Определите информационный объем этого сообщения, если

Илимка [1]

Если в алфавите 32 символа, то для записи одного символа требуется log(2)32 = 5 бит.
Объем сообщения:
4*64*16*5 бит = 4*64*16*5/8 байт = 32*16*5/1024 Кбайт = 2,5 Кбайт

0 0

4 года назад

Подсчитать суммы элементов каждого столбца двумерного массива 3х4 и записать в новый одномерный массив. помогите срочно...!

Dk inccc [1]

Var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin a[i,j]:=random(20)-10; write(a[i,j]:4);end;writeln;end;
for j:=1 to 4 do begin
s:=0;
for i:=1 to 3 do s:=s+a[i,j]; writeln('cумма ',j, ' столбца=',s);end;
<span>end.</span>

0 0

4 года назад