<span>Типографические символоы </span>
#include <iostream>
using namespace std;
int main()
{
int n, k;
<span> cout << "Введите число разрезов ", cin >> n, cout << "\n";</span>
k = (n*(n+1))/2 + 1;
cout << "Общее число кусков пирога равно " << k;
return 0;
}
Var
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
<span>end.</span>
Program pascal;
var n :longint;
begin
writeln ('Введите число:');
read(n);
if n>0 then
if n mod 10 =0 then writeln('Число ',n,' кратное 10')
else
writeln('Число ',n,' не кратное 10');
end.