Треть числа 27 две третьи числа 18 пятую часть числа450 три четверти числа 240 десятую часть числа 60 - id658975520210901 от ученик1890 01.09.2021 18:45

Question

Математика: Треть числа 27 две третьи числа 18 пятую часть числа450 три четверти числа 240 десятую часть числа 60 четыре пятых числа 300 девять десятых числа 60 четвёртую часть числа 36

ученик1890 · Accepted Answer

var b,i,z,k: integer;

a: array[1..10000] of integer;

begin

read(b);

z: =0;

k: =0;

while b> 0 do

begin

z: =z+1;

a[z]: = b mod 10;

b: =b div 10;

end;

for i: =2 to z-1 do

if a[i]=a[i-1] or a[i]=a[i+1] then

k: =1;

if k=1 then writeln (‘да’)

else writeln (‘нет’);

end.

второй способ:

var a,b,c: integer;

begin

read(a);

k: =0;

c: =10; // это должно быть обязательно число, но не цифра

while a > 0 do

begin

b: =a mod 10;

a: =a div 10;

if b=c then k: =1;

c: =b;

end;

if k=1 then writeln (‘да’)

else (‘нет’);

end.

Треть числа 27 две третьи числа 18 пятую часть числа450 три четверти числа 240 десятую часть числа 60 четыре пятых числа 300 девять десятых числа 60 четвёртую часть числа 36

MOGZ ответил