На паскале. дано число, если оно кратно 3(трем) - увеличить его на 5, если кратно 2(двум) - увеличить в 4 раза, если не кратно - увеличить на 1. *использовать функцию "остаток от деления равен нулю".
188
475
Ответы на вопрос:
Function f(a,b: integer): boolean; begin f: =a mod b = 0; end; var n: integer; begin write('n = '); readln(n); if f(n,3) then n: =n+5 else if f(n,2) then n: =n*4 else n: =n+1; writeln('n = ',n); end. пример: n = 21n = 26
var
arr:array[1..1000] of integer;
i,N,k,Maxi:integer;
begin
write('Укажите k - ');
read(k);
Maxi:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do
begin
arr[i]:=1+random(40);
write(arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>k)and(arr[i]<>k) then Maxi:=i;
break;
end;
writeln;
writeln;
write('Макс. - ',Maxi);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
106473819374712.06.2023 01:41
-
Abbal12.08.2022 23:53
-
ktukhfatulin125.11.2021 22:29
-
14света1410.12.2020 03:42
-
kittyQuen14.11.2022 21:27
-
Wenros20.03.2021 19:39
-
Angelina2760924.05.2022 16:19
-
tuni227.12.2022 20:32
-
rusyabarnakov27.06.2020 00:36
-
Dovids17.07.2021 09:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.