Решить информатику, и если не сложно объясните, как решать, var s, k: integer; begin s: =0 for k: =1 - id513257720200206 от любовь270 06.02.2020 03:39

Question

Информатика: Решить информатику, и если не сложно объясните, как решать, var s, k: integer; begin s: =0 for k: =1 to 8 do s: =s+k; writeln(s) end. var s, k: integer; begin s: =20; k: =0; while s 60 do begin s: =s+4; k: =k+1 end; writeln(k) end. var s, k: integer; begin s: =100 k: =8; repeat s: =s-k; k: =k-1; until k 0; writeln(s) end.

любовь270 · Accepted Answer

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

MOGZ ответил