Program lol (input, output); var a, n, b, i, p,s, m:integer; c:real; begin read (n); a:=n; b:=0; c:=0; p:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; end; b:=b-1; end; writeln (c); end. --------------------------------------------------- program lol (input, output); var I, a:integer; begin a:=0; for I:=31 to 55 do begin if (i mod 2) <> 0 then a:=a+I; end; writeln (a); end. ------------------------------------------------------
var a, b, c, s, I:integer; begin read (a, b); if a<b then begin c:=a; a:=b; b:=c; end; c:=a; while c > 0 do begin while c >= b do begin c:=a-b; if c > 0 then s:=c; a:=c; end; a:=b; b:=c; end; writeln (s); end. ------------------------------------------------ program lol (input, output); var m, n, prod: word; begin readln(m, n); prod := m * n; while m <> n do begin if m > n then begin m := m - n end else begin n := n - m end end; writeln(prod div m) end. --------------------------------------------- program lol (input, output); var a, b, c, e:Integer; d:real; begin read (a, b); d:=a/b; c:=trunc(d); e:=a-(b*c); writeln ('Частное: ',c); writeln ('Остаток: ',e); end.
{ Если в Вашей версии система "ругается" на sign, раскомментируйте текст определения этой функции. В противном случае удалите все комментарии }
{ function sign(x:real):integer; begin if x<0 then sign:=-1 else if x>0 then sign:=1 else sign:=0 end; }
var x1,x2,y1,y2:real; begin; Write('Введите через пробел координаты точки 1: '); Read(x1,y1); Write('Введите через пробел координаты точки 2: '); Read(x2,y2); if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2)) then Writeln('Точки находятся в одной четверти') else Writeln('Точки находятся в разных четвертях') end.
<em><u>Тестовое решение:</u></em> Введите через пробел координаты точки 1: -3.5 8.1 Введите через пробел координаты точки 2: -5 4 Точки находятся в одной четверти
Program n1; var i,n,x:integer; begin n:=0; for i:=1 to 9 do begin writeln('Введите число'); readln(x); if x>n then n:=x; end; writeln(n); <span>end.
</span>program n1; var i,n,x:integer; begin n:=32767; for i:=1 to 9 do begin writeln('Введите число'); readln(x); if (x<n) and (x mod 2=0) then n:=x; end; writeln(n); end.<span>