Дано целое число ,не меньшее 2.вывести сколько делителей у этого числа. в паскале решение для 8класса
106
223
Ответы на вопрос:
Var n,i,k: integer; begin write ('введите целое число (n> =2): '); readln (n); k: =0; for i: =1 to n do if n mod i = 0 then k: =k+1; writeln('количество делителей числа ',n,' равно: ',k) end.
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Как записываются операторы ввода и вывода в паскале?...
denmalyshevs30.05.2021 10:19 -
[Python]Разработать алгоритм и программу решения следующей задачи....
PolyaBarane24.02.2023 20:27 -
Можно подробно с решением...
gardenberg1706.04.2021 05:11 -
Как роли на сервер дс добавить? ...
360Polina36013.06.2023 20:38 -
1. Копьютердiн курылгыларына сипаттама 2. Процессорын курылгылары....
андрев123.06.2022 21:17 -
определите разность суммы нечетных цифер и суммы четных цифр десятичного...
almaz10801.09.2020 09:57 -
Нарисуйте блок-схему по программам (pascal): 1) uses crt; var x,a,b,e:...
svyatoslavkorchagin20.11.2020 06:36 -
Определи формат данных для ячейки В2. А B C с D 1 Афиша кинотеатра...
ZigFinde07.02.2023 05:14 -
Образование в новое время. и образование современности...
никун28.11.2022 18:18 -
Как надо изменить сторону квадрата чтобы его площадь увеличилась в...
Riiiiiii29.06.2021 08:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.