ЗА ТАКОЙ ТЕКСТ, НО С РЕШЕНИЕМ, ЕСЛИ НЕ ЗНАЕТЕ ТО НЕ РЕШАЙТЕ, КИНУ ЖАЛОБУ! 1. Определите зна¬че¬ние пе¬ре¬мен¬ной c после вы¬пол¬не¬ния сле¬ду¬ю¬ще¬го фраг¬мен¬та про-грам¬мы. ответ за¬пи¬ши¬те в виде це¬ло¬го числа. a := 20; b := 15; b := 3 * b - a; if a > b then c := 2 * a + b else c := 2 * a - b; 2. Определите, что будет на¬пе¬ча¬та¬но в ре¬зуль¬та¬те ра¬бо¬ты сле¬ду¬ю¬ще¬го фраг¬мен¬та программы: var k, s: integer; begin s:=0; k:=0; while k < 30 do begin k:=k+3; s:=s+k; end; write(s); end. 3. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i : = 0 to 10 do A[i] : = i; for i : = 0 to 4 do begin k : = A[i]; A[i] : = A[10-i]; A[10-i] : = k; end; Чему будут равны элементы этого массива? 4. Дано А = A716, B = 2518. Найдите сумму A + B. ответ укажите в двоичной системе. 5. При ре¬ги¬стра¬ции в ком¬пью¬тер¬ной си¬сте¬ме каж¬до¬му поль¬зо¬ва¬те¬лю выдаётся пароль, со¬сто¬я¬щий из 12 сим¬во¬лов и со¬дер¬жа¬щий толь¬ко сим¬во¬лы А, Б, В, Г, Д, Е. Каж¬дый такой па¬роль в ком¬пью¬тер¬ной про¬грам¬ме за¬пи¬сы¬ва¬ет¬ся ми¬ни¬маль¬но воз¬мож¬ным и оди¬на¬ко¬вым целым ко¬ли¬че¬ством байт, при этом ис¬поль¬зу¬ют по¬сим¬воль¬ное ко¬ди¬ро¬ва-ние и все сим¬во¬лы ко¬ди¬ру¬ют¬ся оди¬на¬ко¬вым и ми¬ни¬маль¬но воз¬мож¬ным ко¬ли¬че¬ством бит. Определите, сколь¬ко байт не¬об¬хо¬ди¬мо для хра¬не¬ния 20 паролей.
Ответы
Var n,p,m,max1,max2,im1,im2,i:integer;
begin
Randomize;
n:=347000;
max1:=0; max2:=0;
for i:=2017 to 2025 do
begin
p:=round(n*(2*random+1.5)/100);
m:=round(n*(2.5*random+0.5)/100);
if p>max1 then begin max1:=p; im1:=i; end;
if m>max2 then begin max2:=p; im2:=i; end;
n:=n+p-m;
writeln(i,': n = ',n);
end;
writeln('Наибольший прирост = ',max1,', ',im1,' год');
writeln('Наибольшая убыль = ',max2,', ',im2,' год');
end.
Пример:
2017: n = 345558
2018: n = 349922
2019: n = 353532
2020: n = 356979
2021: n = 364842
2022: n = 371614
2023: n = 381020
2024: n = 389903
2025: n = 388485
Наибольший прирост = 11702, 2023 год
Наибольшая убыль = 10701, 2020 год
begin
Randomize;
n:=347000;
max1:=0; max2:=0;
for i:=2017 to 2025 do
begin
p:=round(n*(2*random+1.5)/100);
m:=round(n*(2.5*random+0.5)/100);
if p>max1 then begin max1:=p; im1:=i; end;
if m>max2 then begin max2:=p; im2:=i; end;
n:=n+p-m;
writeln(i,': n = ',n);
end;
writeln('Наибольший прирост = ',max1,', ',im1,' год');
writeln('Наибольшая убыль = ',max2,', ',im2,' год');
end.
Пример:
2017: n = 345558
2018: n = 349922
2019: n = 353532
2020: n = 356979
2021: n = 364842
2022: n = 371614
2023: n = 381020
2024: n = 389903
2025: n = 388485
Наибольший прирост = 11702, 2023 год
Наибольшая убыль = 10701, 2020 год
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Контрольна з інформатики ❤❤❤
Автор: tatyana58
Элемент массива М(5) вывести максимальный элемент
Автор: elena-ruzadom
Составить программу для вычисления нод с модифицированного алгоритма евклида
Автор: Валиахметова
1 бит аркылы нени кодтауга болады?
Автор: Abdullaev
i,max:integer;
begin
for i:=1 to 10 do
readln a[i];
max:=a[1];
for i:=2 to 10 do
if a[i]> max then max:=a[i];
for i:=1 to 10 do begin
if a[i]>0 then a[i]:=max;
if a[i] >0 then a[i]:=i;
end;
for i:=1 to 10 do
writeln( a[i]);
end.
1. Заполняем массив из 10 элементов
2 Считаем условно что первый элемент максимальный
3 В цикле начиная со второго элемента находим максимальный элемент
4 Осуществляем преобразования в цикле с учётом условия
5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы