Likable2009
29.05.2023 11:14

очень Определи значения переменных a и b после выполнения фрагмента алгоритма. В ответ запишите сначала a потом b через точку с запятой без пробел
a:=42;
b:=14;
a:=a div b
b:=a * b
a:=b div a
2
Определи значения переменной с после выполнения фрагмента алгоритма
a:=15;
b:=30;
b:=a*2 - b/2;
if a > b then c:=3*b - a/3
else c:=3*a - 4*b;
3
Переведи десятичное число 231 в двоичную и шестнадцатеричную систему счисления. ответы запиши без указания СС через точку с запятой (сначала двоичная СС потом восьмеричная)
4
Переведи двоичное число 10011012 в десятичную систему счисления. Запиши ответ без указания СС.
5
Реши задачу с кругов Эйлера.
По за было найдено следующее число стр.:
Картина V Пейзаж = 20 000
Картина & Пейзаж = 14 000
Картина = 16 000
Сколько стр будет найдено по за Пейзаж?
В ответе укажи только полученное число страниц.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yaritos
29.03.2020 00:51
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
0,0(0 оценок)
Ответ:
Ikramhaus221
08.05.2021 14:45
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота