Var a,a1,a2,a3,a4:integer; Begin Readln(a); a1:=a div 1000; a2:=a div 100; a2:=a2 mod 10; a3:=a mod 100; a3:=a3 div 10; a4:=a mod 10; if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено'); End.
Задача №4
Var a,a1,a2,a3:integer; Begin Readln(a) ;a1:=a div 100; a2:=a div 10; a2:=a2 mod 10; a3:=a mod 10; if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено'); End.
Задача №5
Var a,a1,a2,a3,a4:integer; Begin Readln(a); sqr(a); if (a>=100) and (a<=999) then begin a1:=a div 100; a2:=a div 10; a2:=a2 mod 10; a3:=a mod 10; end; if (a>=1000) and (a<=9999) then begin a1:=a div 1000; a2:=a div 100; a2:=a2 mod 10; a3:=a mod 100; a3:=a3 div 10; a4:=a mod 10; end; if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено'); End.
Answers & Comments
Verified answer
Задача №3Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
Задача №4
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
Задача №5
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
End.