Question

Требуется сделать 7 и 8 номера. Но решение одного номера, а не двух тоже принимается. Все в паскале.

Answer 1

7)

program chislo;

var  

 m,s,k:integer;

begin

 writeln('Введите натуральное число m:');

 read(m);

 s:=0;

 k:=0;

 repeat  

   if m mod 2 =0 then  

     s:=s+1

   else  

     k:=k+1;

   m:=m div 10;

 until m=0;

 writeln('Четных чисел: ',s);

 writeln('Нечетных чисел: 3',k);

end.

8)

program chislo2;

var

 m, max :integer;

begin

 writeln('Введите натуральное число:');

 read(m);

 max:=0;

 while m>0 do  

   begin

     if m mod 10 > max then  

       max:=m mod 10;

     m:= m div 10;

     end;

 writeln('Наибольшая цифра: ',max);

end.

Answer 2

вы лучший ;)

Answer 3

последний вопрос. к данной задаче верный результат?

Answer 4

program zadacha1_155;
var x,y,z:integer;
begin
for x:=1 to 10 do
for y:=1 to 10 do
for z:=1 to 10 do
if sqr(x)+sqr(y)=sqr(z) then
writeln('x=',x,' y=',y,' z=',z);
end.

Answer 5

x=3 y=4 z=5
x=4 y=3 z=5
x=6 y=8 z=10
x=8 y=6 z=10

Answer 6

вроде бы правильный результат