begin Randomize; Writeln('*** Исходный массив ***'); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); end; Writeln; Writeln('*** Результирующий массив ***'); for i := 1 to n do begin if (x[i] mod 2) = 0 then x[i] := 0; Write(x[i]:4); end; end.
1 - в) caa 2 - в) в столбик 3 - в) char 4 - в) пояснительный текст не нужен 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.
0.433=4*10^(-1)+3*10^(-2)+3*10^(-3)
Объяснение:
так пишут ответ