Между населёгными пунктами A B C D E F есть дороги. Найди кратчайший путь между пунктами A и F

297

500

Посмотреть ответы 1

Ответы на вопрос:

НаильХудайбердиев

Информатика

4,8(98 оценок)

1) var a,b,sum : integer; begin readln(a, b); if (a mod b = 0) then begin while a > 0 do begin sum: = sum + (a mod 10); a: = a div 10; end; if sum > b then begin writeln('верно'); halt; end; end; writeln('неверно'); end. пример: 1234 2верно2) vari: integer; beginfor i: = 100 to 999 do if (i*i)mod 1000 = i then write(i, ' '); end. результат: 376 625 3) var i,n : integer; function simple(n: longint): boolean; var i: longint; begin for i : = 2 to round(sqrt(n)) do if n mod i = 0 then break; simple : = n mod i < > 0; end; begin read(n); for i: = 1 to round(sqrt(n)) do if n mod i = 0 then if (simple(i))and(simple(n div i)) then begin writeln('yes'); halt; end; writeln('no'); end. пример: 33 yes