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

Программе <:=>> обозначает оператор присваивания, знаки «+», «-», «*» И <</>> - соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок действий соответствует правилам арифметики. А) Б)

Определите значение переменной а после выполнения алгоритма:

a := 4

b:=9

b:= 6*6 - а

a:=b/5*3-a

В ответе укажите одно целое число значение переменной а

Определите значение переменной ь после

выполнения алгоритма:

a:= 4 b := 15

a := b-a*3

b := 24/a*4

В ответе укажите одно целое число значение переменной ь.

6. Запишите значение переменной s, полученное в результате работы следующей

программы.

А)

var s,k: integer;

begin

s := 0;

for k := 3 to 7 do s:= s + 6;

writeln(s);

end.

var s,k: integer;

begin

s:= 8;

for k := 3 to 8 do

s:= s + 8;

writeln(s);

end.​

👇
Открыть все ответы
Ответ:
mityatimofeev
mityatimofeev
27.05.2023
Amicosinglun.exe - это исполняемый файл (программа) для windows. расширение имени файла  .exe  - это аббревиатура от . слова  executable  — исполнимый. необходимо запускать исполняемые файлы от проверенных производителей программ, потому что исполняемые файлы могут потенциально изменить настройки компьютера или нанести вред вашему компьютеру. бесплатный форум с информацией о файлах может вам разобраться является ли amicosinglun.exe вирусом, трояном, программой-шпионом, рекламой, которую вы можете удалить, или файл принадлежит системе windows или приложению, которому можно доверять. по поводу автозагрузки: попробуй установить программу avast cleanup, она умеет убирать файлы автозагрузки
4,7(81 оценок)
Ответ:
larryzw17
larryzw17
27.05.2023

program ;

var

  i, a: longint;

  x,

  u, j,  

  n, m : longint;

function fdiv (a, left : longint) : longint;

var

d,  

i : longint;

begin

d : = 1;  

for i : = left to trunc (sqrt (a)) do

if (a mod i = 0)

then

begin

d : = i;  

break;  

end;

if (d < > 1)

then

fdiv : = d

else  

fdiv : = a;

end;

function g (n, u : longint) : longint;

var

i : longint;  

begin

i : = 0;  

while (n mod u = 0)

do

begin

inc (i);

n : = n div u;

end;

g : = i;

end;

begin

assign (input, 'input.txt');

assign (output, 'output.txt');

reset (input);

read (a);

close (input);

m : = 0;

n : = 1;  

i : = fdiv (a, 2);

u : = 2;  

while (a > 1)

do

begin

n : = n * i;  

j : = 0;  

  while (a mod i = 0)

  do

begin

inc (j);

a : = a div i;

end;

if (j > m)

then

begin

m : = j;  

u : = i;  

end;

i : = fdiv (a, i + 2);

end;

x : = 1;

while (g (n * x, u) * n * x < m)

do

inc (x);

n : = n * x;  

rewrite (output);

write (n);

close (output);

end.

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