Напишите программу сложения двух вещественных чисел, используя алгоритмический язык программирования.

293

494

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

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

Iejsjsjsj

Информатика

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

Var a: array[1..5] of integer; j,l,i,k,n: integer; begin readln(n); while not(n=0) do begin k: =k+1; a[k]: =n mod 10; n: =n div 10; end; for i: =1 to min(3,k) do begin n: =a[i]; l: =0; for j: =1 to k do if n=a[j] then l: =l+1; if l> =3 then begin writeln('в записи есть три одинаковых чисел'); l: =20; break; end; end; if not(l=20) then writeln('в записи нет трех одинаковых чисел'); end.