Ответы
Ответ дал:
0
Ответ:
program sam;
uses crt;
type tmasi=array[1..50]of integer;
var ch:integer;
ss,s,k,i:byte;
z:tmasi;
begin
write('Ââåäè ÷èñëî:'); readln(ch);
i:=0;
s:=0;
ss:=0;
while ch <>0 do
begin
inc(i);
z[i]:=ch mod 10;
ch:=ch div 10;
end;
k:=i;
for i:=1 to k do
if z[i]=4 then inc(s)else
if z[i]=7 then inc(ss);
if (s=0)and(ss=0)then writeln(' ÷èñëå íåò ÷èñåë 4 è 7') else
if (s<>0)and(ss<>0)then writeln(' ÷èñëå ïðèñóòñâóþò ÷èñëà 4 è 7');
if ((s<>0)and(ss=0))or((s=0)and(ss<>0))then writeln(' ÷èñëå ïðèñóòñòâóþò ëèáî òîëüêî 4 ëèáî òîëüêî 7');
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад