Задача «Відгадай загадку» Користувачеві відображається загадка, наприклад «Що літає, крил не має. але - id1816406920220609 от ккк130 09.06.2022 06:00

Question

Информатика: Задача «Відгадай загадку» Користувачеві відображається загадка, наприклад «Що літає, крил не має. але крила підіймає?» Якщо користувач вводить правильну відповідь: «вітер», то програма видає повідомлення “Так. супер! , інакше буде виведено повідомлення На жаль, ні.

ккк130 · Accepted Answer

Var a,b,c,d,i,f,g,h,n:integer; begin writeln( введите число ); readln(a); g:=0; c:=0; d:=0; i:=0; f:=0; writeln( введите число для сравнения ); readln(h); for b:=a downto 1 do begin if a mod b = 0 then writeln( его делитель == ,b); if a mod b = 0 then c:=b+c; if a mod b = 0 then if b mod 2 = 0 then d:=d+b; if a mod b = 0 then if b mod 2 0 then i:=i+1; if a mod b = 0 then f:=f+1;  if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i f a mod b = 0 then if b h then n:=n+1;  end; writeln( сумма его делителей...

MOGZ ответил