Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
Var
s:string;
i,n,k:integer;
begin
Write('Введите выражение: '); Readln(s);
i:=Length(s);
while i>0 do begin
if s[i]=')' then begin
k:=0; Dec(i);
while (s[i]<>'(') and (i>0) do
begin Dec(i); Inc(k) end;
Delete(s,i+1,k)
end;
Dec(i)
end;
Writeln(s)
end.
<em><u>Тестовое решение:</u></em>
Введите выражение: 3*(a+b)/(a-b);
3*()/();
Using System;
namespace ConsoleApplication9
{
class Program
{
static void Main()
{
Console.Write("N = ");
int N = int.Parse(Console.ReadLine());
int Sum = 0;
for (int i = 1; i <= N; ++i)
if (i % 2 == 0) Sum += i;
Console.WriteLine("Sum = {0}", Sum);
Console.ReadKey();
}
}
}