Джамал1009
?>

Нету только фоткаинформатика 8 класс, ! ​

Информатика

Ответы

shangina1997507
// pascalabc.net 3.3, сборка 1561 от 02.11.2017 // внимание! если программа не работает, обновите версию! 1) begin   var (a,b): =readinteger2('введите границы диапазона: ');   var всего: =b-a+1; // количество целых чисел в диапазоне   var четных,нечетных: integer;   if a.isodd then begin четных: =всего div 2; нечетных: =всего-четных end   else begin нечетных: =всего div 2; четных: =всего-нечетных end; // четное a   writeln('нечетных- ',нечетных,', четных- ',четных) end. пример введите границы диапазона: -4 4 нечетных- 4, четных- 5 2) begin   var (n,a,b): =readinteger3('введите n,a,b: ');   seqrandom(n,a,b).println end. пример введите n,a,b: 15 -10 35 19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18
kozak8824
// pascalabc.net 3.3, сборка 1561 от 02.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('введите в строку элементы массива a[3x3]');   var a: =readmatrreal(3,3);   writeln('введите в строку элементы массива b[3x3]');   var b: =readmatrreal(3,3);   var c: =new real[3,3];   for var i: =0 to c.rowcount-1 do       for var j: =0 to c.colcount-1 do           c[i,j]: =a[i,j]/b[i,j];   writeln('*** массив с ***');   c.println(10,5) end. пример введите в строку элементы массива a[3x3] 3 5 -2 1.5 0.7 6 -0.5 4 2.2 введите в строку элементы массива b[3x3] 0.6 5 3 7.4 -7.13 9.1 -2 0.8 6.42 *** массив с ***     5.00000    1.00000  -0.66667     0.20270  -0.09818    0.65934     0.25000    5.00000    0.34268

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

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

Нету только фоткаинформатика 8 класс, ! ​
Ваше имя (никнейм)*
Email*
Комментарий*

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

kris5009646
annino
yugraspets
asemchenko
mbykovskiy
pnatalia
MN-Natusik80
Vorotko814
antonkovalev89
Vladimirovna1370
tvshi
VladimirBorisovich
zimin0082
KonovalovKonstantinovna1306
shuttse