Определите значение переменной a после выполнения дан-ного алгоритма: a := 7
с := 3
с := 3 + a * с
a := с / 3 * a
В ответе укажи¬те одно целое число — значение переменной a.
225
302
Ответы на вопрос:
1)program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
78061323.12.2022 01:04
-
evaava09816.08.2022 03:35
-
Богдана20019.08.2022 13:01
-
Smal148806.12.2022 21:14
-
маша252125.09.2020 07:26
-
andrstoyan18201.09.2021 19:45
-
kotkat201418.05.2023 15:10
-
Bashirov1206.02.2023 21:36
-
kamilla02118527.05.2023 01:49
-
anyayakubchick21.01.2022 20:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.