Контакты Удиви меня

Var x real begin - 63

< Предыдущая
Фото - 63
Следующая >
Var x real begin. Var sum,i,n: integer; begin for i:=1 to 5 do begin read(n); sum: = end.. Var k s integer begin k=1.s=0 repeat s=5+k k=k+2 until k>8. Var x, s, n: integer; begin readln(x); s:=12 * (x div 10); n:= 1; repeat s:=s+ 30; n:= n * 2 until s > 200; writeln(n) end..


Все фотографии