Program month;
uses crt;
var m: integer;
begin clrscr;
Write('M = ');
readln(m);
case m of 1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
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))
Чтобы продолжить, нажмите любую клавишу
В виде таблицы не умею вот паскаль.
Program v;
var x, y:integer;
begin
for x:= -2 to 2 do y=x*(sqr(x))-sqr(x)+2*sqrt(x);
writeln(x,y);
end.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>