dashkevich-76611
?>

Составьте программу заполнения массива а[1..10] нечетными числами: индексы элемента 1 2 3 4 5 6 7 8 9 10 значение элемента 1 3 5 7 9 11 13 15 17 19

Информатика

Ответы

Olga_Vyacheslavovich1054
Program mas; var a: array [1..10] of byte;       i: byte; begin     for i: =1 to 10 do         a[i]: =2*i-1;         write(a[i],'  '); end.
rinan2013
// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readinteger.tostring;   if s=s.distinct.sorted.joinintostring('') then       writeln('цифры являются возрастающей последовательностью')   else       writeln('цифры не являются возрастающей последовательностью') end. примеры 148 цифры являются возрастающей последовательностью 355 цифры не являются возрастающей последовательностью №2 begin   var x,y: real;   write('введите координаты точки: '); read(x,y);   if x*y=0 then writeln('нули вводить не допускается')   else       if x*y> 0 then           if x> 0 then writeln('i четверть')           else writeln('iii четверть')       else           if x> 0 then writeln('iv четверть')           else writeln('ii четверть') end. пример введите координаты точки: -2 -3.2 iii четверть
spadikov
1) program n1; var n: integer; begin write('введите 3-х значное число: '); readln(n); if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then writeln('true') else writeln('false'); end. 2) program n2; var x,y: real; begin readln(x,y); if(x=0) and (y=0) then writeln('точка в начале координат') else if(x> 0)and(y> 0) then writeln('i четверть') else if(x< 0)and(y> 0) then writeln('ii четверть') else if(x< 0)and(y< 0) then writeln('iii четверть') else if(x> 0)and(y< 0) then writeln('iv четверть') else if(x=0)and(y< > 0) then writeln('точка на оси oy') else if(x< > 0)and(y=0) then writeln('точка на оси ox'); end.

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

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

Составьте программу заполнения массива а[1..10] нечетными числами: индексы элемента 1 2 3 4 5 6 7 8 9 10 значение элемента 1 3 5 7 9 11 13 15 17 19
Ваше имя (никнейм)*
Email*
Комментарий*

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

Анастасия Елена
Igorevich1559
Баранов276
Александровна-Павловна
ilonchick679
amayonova
academycoffee243
vodexshop2
info664
sergei-komissar8475
supply1590
vodexshop2
Reutskii884
chulki-kupit
impulsmc715