6. Фізкультхвилинка.
7. Визнач, скільки важать два гранати (у грамах).
21
26
?​

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.

Пошаговое объяснение:

1 задание

а) 89:7=12.714... = 12 целая часть

б)318:15=21.2=21 целая часть

2 задание

а) 4 5/16=69/16

б) 101 4/5=509/5

3 задание

а) 1 7/15-4/25=22/15-4/25=110/75-12/75=98/75=1 23/75

б) 6 3/4x1 7/9=27/4x16/9=12

в) 3 1/5:2 2/5=16/5:12/5=16/5x5/12=4/3=1 1/3

4 задание

скорость 1 трубы- 1/27 в минуту

скорость 2 трубы-1/54 в минуту

1/27+1/54=2/54+1/54=3/54=1/18 в минуту

ответ-за 18 минут

5 задание

7/7-3/7=4/7=84м

84:4=21м=1/7

21x3=63м уже

ответ-63м

6 задание

(33:30-4/5)x2 2/9+2/5=(11/10-8/10)x20/9+2/5=3/10x20/9+2/5=2/3+2/5=10/15+6/15=16/15=1 1/15