Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>
// PascalABC.NET 3.0, сборка 1111
begin
var s:=ReadLnString('Введите строку: ');
var a:=ReadLnString('Введите команду: ').ToWords;
Delete(s,StrToInt(a[1]),StrToInt(a[2]));
Writeln('Результат: '+s)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: my old name was Thom
Введите команду: DEL 4 3
Результат: my name was Thom
10102=1⁴0³1²0¹2⁰₂= 1*2⁴+1*0³+1*2²+1*0₁+1*2⁰=16+0+4+0+1=21
1⁶0⁵1⁴1³0²1¹2⁰= 64+0+16+8+1+1=90
1)X:=x+5
2)X:=sqr(x)
3)x:=x/2
4)x:=2x
Прога
Var s,a:integer;
begin
readl(a);
s:=sqr(a);
wrtiteln(a);
end.