М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Kirill12345qwert
Kirill12345qwert
11.03.2020 23:50 •  Информатика

6. определите значение переменной с после выполнения следующего фрагмента программы: a : = 6*12 + 3; b : = a div 10 + 5; a : = b mod 10 + 1; c : = a*a + b*b - a / 2 * b; 7. определите значение переменной с после выполнения следующего фрагмента программы: m: = 67; m: = m + 13; n: = m/4 - m/2; c: = m - n; 8. определите значение переменной с после выполнения следующего фрагмента программы: a : = 30; b : = 6; a : = a / 5 * b; if a > b then c : = a - 4 * b else c : = a + 4 * b; 9. определите значение переменной c после выполнения следующего фрагмента программы: a : = -2; b : = -3; a : = b + a*3; if a < b then c : = a - b else c : = b - a;

👇
Ответ:
marishokmarisho
marishokmarisho
11.03.2020
Порядок вывода - a b c m n k
6 - 3 12 135 0 0 0
7 - 0 0 100 80 -20 0
8 - 36 6 12 0 0 0
9 -  -9 -3 -6 0 0 0
4,7(70 оценок)
Открыть все ответы
Ответ:
Nna564
Nna564
11.03.2020

// PascalABC.Net

// Первая программа, если необходимо выбрать нечетные элементы и их отсортировать.

begin

   var a := ArrRandom(10);

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

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   a.Where(e -> e mod 2 <> 0).OrderBy(e -> e).Print(', ');

end.

// Вторая программа, если необходимо в исходном массиве отсортировать нечетные значения

begin

   var a := ArrRandom(10);

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

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   var odd := a.Select((e, i) -> (i, e)).Where(e -> e[1] mod 2 <> 0).OrderBy(e -> e[1]);

   var sortedOdd := odd.Zip(odd.Select(e -> e[0]).OrderBy(e -> e), (f, s) -> (s, f[1]));

   foreach var e in sortedOdd do

       a[e[0]] := e[1];

   a.PrintLn(', ');

end.

4,4(61 оценок)
Ответ:
Cvetochek554
Cvetochek554
11.03.2020

uses crt;

var n,m,i,p:longint;

   s,k:byte;

begin

clrscr;

repeat

write('Введите натуральное число N=');

readln(n);

until n>0;

m:=n;

s:=0;

while m>0 do

begin

 s:=s+m mod 10;

 m:=m div 10;

end;

writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);

k:=0;

for i:=1 to n-1 do

begin

 m:=i;

 p:=1;

 while m>0 do

  begin

   p:=p*(m mod 10);

   m:=m div 10;

  end;

 if p=s then

  begin

   k:=1;

   write(i,' ');

  end;

end;

if k=0 then write('Таких чисел нет');

readln

end.

Объяснение:

4,4(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ