Написать программу для решения (все в одной программе). показать диалог с пользователем (вывод сообщений и полученных значений). решить в кумире введено трехзначное число x а) вывести цифры этого числа (а, b, с) б) проверить, образуют ли цифры этого числа палиндром? в) образуют ли цифры данного числа возрастающую последовательность? г) определить и вывести максимальную цифру данного числа д) определить сумму чисел полученного числа (s) е) определить, является ли число s четным и кратным 3 ж) определить принадлежит ли число s интервалу (10 з) вывести перевертыш этого числа (справа налево)

Школьные Знания.com

Какой у тебя вопрос?

10 - 11 классыИнформатика 8+4 б

Дан массив вещественных чисел:

Все элементы с нечетными номерами заменить на их квадратный корень

Отметить нарушение РРПП 01.04.2013

ответы и объяснения

Проверенный ответ

Tlalok

Tlalok Почетный грамотей

var

a:array[1..100] of real;

i, n:integer;

begin

write('Введите количество элементов '); readln(n);

for i := 1 to n do

begin

write('a[', i ,'] = ');

readln(a[i]);

end;

writeln;

writeln('Исходный массив:');

for i := 1 to n do

begin

write(a[i], ' ');

if i mod 2 = 1 then

a[i] := sqrt(a[i]);

end;

writeln;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

write(a[i]:0:2, ' ');

writeln;

end.

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.