Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.
DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
Uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.