Var A:integer;
Begin
WriteLn('Введи целое трёхзначное число');
ReadLn(A);
if A div 100 = A mod 10 then WriteLn(A,' - полиндром')
else WriteLn('Число не является полиндромом')
End.

0 0

4 года назад

Как привести окно программы word к стандартному виду

ahhsh

Нажать пуск Ровлвтвовивдвтдвтвдвтвдчтвдвтвдвтудвивдвьм

0 0

4 года назад

Составьте пожалуйста программу в Паскале Заполнить массив А пятью произвольными целыми числами. Изменить каждый элемент массива

Алина160870

Для случайных чисел:

var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.

Для ручного заполнения:

var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.

0 0

3 года назад

Напишите программу которая вычисляет сумму всех делителей заданного натурального числа n и находит все нечетные делители этой су

Айкеризере

Ух. тоже олимпиада по информатике ?))

0 0

4 года назад