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

The real begin - 50

< Предыдущая
Фото - 50
Следующая >
The real begin. Var x:integer; y:real;. Var x,y: integer begin writeln ('введите x') readln(x) y:=sqrt x(x) или x*x writeln(y);. Var s, t: integer; begin readln(s); readln(t); if (s < 5) or (t > 5) then writeln('Yes') else writeln('no') end.. Var k s integer begin k=1.s=0 repeat s=5+k k=k+2 until k>8.


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