После первого применения получается РМП
После второго применения получаем: ТСНР
Var i,s:integer;
begin
i:=20;
while i<100 do
begin
s:=s+i;
i:=i+1
end;
writeln('Ответ: ',s)
end.
var i,s:integer;
begin
i:=20;
repeat
s:=s+i;
i:=i+1;
until i>99;
writeln('Ответ: ',s)
end.
Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ
Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.