#include <iostream>
#include <string>
using namespace std;
bool isb(char t)
{
bool f=false;
string dic="abcdefghijklmnopqrstuvwxyz1234567890";
for(int i=0;i<dic.size();i++)
if(dic[i]==t)
return !f;
return f;
}
int main()
{
string s;
int i=0;
getline(cin,s);
while(i<s.size())
{
if(isb(s[i]))
{
s.insert(i,1,s[i]);
i++;
}
i++;
}
cout<<s<<endl;
return 0;
}
Var i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
<span>end.</span>
Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=3
then y:=x*x-3*x+3 else y:=1/(x*x+6);
writeln('y = ',y);
end.
Пример:
<span>x = 2
y = 1</span>
Program n1;
var a: array[1..20] of integer;
i,sum: integer;
begin
randomize;
write('исходный массив: ');
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(21);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
writeln('срзнач: ',sum/20);
end.