21) определите количество полей в таблице бд «магазин» и их тип: название директор адрес телефон «рога и копыта» функ п.п. г. уфа 345234, «золото якутии» иванов и.и. г. якутск 123456 2) определите количество записей в таблице бд «компьютеры» № компьютер озу винчестер 1 pentium 16 800mb 2 pentium iv 512 120gb 3 486dx 8 500mb 4 pentium iv 128 60gb
112
311
Ответы на вопрос:
Var max,i,j,s,a,b,z: integer; begin max: =0; readln(a,b); for i: =a to b do begin s: =0; for j: =1 to i do if i mod j=0 then s: =s+j; if s> max then begin max: =s; z: =i end end; writeln(z) end.
Популярно: Информатика
-
RenoGant25.08.2021 01:36
-
Vitalikebati11.05.2022 11:12
-
prooverrseer14.05.2023 18:00
-
MagistooorNaine01.07.2022 03:21
-
Smort24.03.2020 00:18
-
9639933p08o1o08.04.2023 01:56
-
olegkuchmak19.05.2020 13:00
-
Reichale27.01.2020 10:49
-
АнютаП105.06.2020 18:58
-
zakomorniy05.04.2021 00:26