В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
whcxjsg
whcxjsg
07.02.2023 21:43 •  Информатика

Запишите координаты точки, в которой окажется Чертежник после выполнения программы *

Показать ответ
Ответ:
flora21345
flora21345
06.08.2022 15:45
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
0,0(0 оценок)
Ответ:
Groyve1
Groyve1
02.06.2023 18:20
Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.

begin 
write('a = '); readln(a);     \\запрос у пользователя первого коэффициента
write('b = '); readln(b);     \\запрос у пользователя второго коэффициента
write('c = '); readln(c);    \\запрос у пользователя третьего коэффициента
d := b*b - 4*a*c;             \\ расчет дискриминанта
if d=0 then                 \\ветка для решения при нулевом дискриминанте
begin 
x1 := b / (2 * a) 
writeln (x1:3:3); 
end                      \\ окончание при нулевом дискриминанте
else 
if d>0 then       \\ ветка для решения при положительном дискриминанте
begin 
x1 := (- b + sqrt(d) / (2 * a);    \\ первый корень
x2 := (- b - sqrt(d) / (2 * a);      \\ второй корень
writeln (x1:3:3, ' ', x2:3:3);     \\ вывод ответа
end 
else                  \\ ветка решения для отрицательного дискриминанта
writeln ('Нет действительных корней'); 
end. 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота