1 - в) caa
2 - в) в столбик
3 - <span>в) char
4 - </span>в) пояснительный текст не нужен
5 - в) символ заключается в апострофы
1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.
2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.
Задача №2
uses crt;var x,i: integer; begin cls; write('x= '); readln(x); for i:=1 to x do if (x mod i)=0 then writeln(i);<span>end.
Задача №1
uses crt;var x,a,b,c,i: integer; begin cls; for i:=100 to 999 do begin a:= i div 100; b:= (i - a*100) div 10; c:= (i - a*100 - b*10); if (a+b+c)*(a+b+c)*(a+b+c)=i then begin writeln(i); inc(x); end; end; if x=0 then write('Такого числа нет');<span>end.
Задача №3
uses crt;var x,a,b,i: integer; begin cls; for i:=10 to 99 do begin a:= i div 10; b:= i - a*10; if a=(b*2) then writeln(i); end;<span>end.</span></span></span>
type z=array of integer;
var a: z;
i,j,k: integer;
begin
setlength(a,1);
readln(a[0]);
i:=1;
while(a[i-1]<>0) do
begin
setlength(a,i+1);
readln(a[i]);
i:=i+1;
end;
setlength(a,length(a)-1);
for i:=0 to length(a) do
for j:=0 to length(a)-2 do
if (a[j] < a[j+1]) then
begin
k:=a[j];
a[j]:= a[j+1];
a[j+1]:=k;
end;
write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);
end.