1.Таблица "Клиенты" (напишите поля через запятую, как минимум 6 полей).
2.Таблица "Клиенты" (напишите поля через запятую, как минимум 6 полей) *

169

403

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

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

Студентка16епта

Информатика

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

Program project1; var a,b: integer; i,j,k, ci, si,mi, errkod: integer; sti: string; flag: boolean; begin readln(a,b); flag: =false; for i: =a to b do begin str(i, sti); si: =0; for j: =1 to length(sti) do begin val(sti[j],mi,errkod); ci: =1; for k: =1 to length(sti) do ci: =ci*mi; si: =si+ci; end; if si=i then begin write(si,' '); flag: =true end; end; if not flag then write(-1); readln; end.