kapriz1999
?>

Опишите массив из 50 действительных чисел

Информатика

Ответы

Dlyamila

var 

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

kyrtlab39
Var n,sum,d,ind,first: integer; begin   write('n');   readln(n);   d: =1;   ind: =0;   sum: =0;   if   n div d=0 then    begin    ind: =1;   sum: =n;   end    else begin    while n div d< > 0 do    begin    inc(ind);     sum: =sum+(n div d) mod 10;     d: =d*10;     end;     end;     writeln('suma',sum);     writeln('kolvo',ind);     first: =(n div round(d/10)) mod 10;   writeln('first',first);     readln; end.
Konstantin_Vadimirovich
1) var a : byte;     begin         writeln('сколько вам лет? ');   readln(a);         if a > 17 writeln('вы совершеннолетний');     end. 2)   var a : integer;       begin           readln(a);           if a mod 2 = 0 then writeln(число четное)           else writeln(число нечетное);       end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Опишите массив из 50 действительных чисел
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Головин662
bk4552018345
selena77
fetisov68av
dariamay1996
gassvetlana
Стародубцева_Васильевич485
kabanovae
kozhevniks
Яковчук1911
Vladimirovna1858
NIKOLAEVNA
X2755070
barg562
Negutsa_Kseniya524