Program chik;
var a,b:string;
i,l:integer;
begin
readln(a);
b:='';
l:=length(a);
for i:=1 to l do
begin
b:=b+a[i]+' ';
end;
writeln(b);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(25, -10, 50);
a.Println;
// 1
a[a.IndexMax] := Round(a.Average);
a.Println;
// 2
a.Where(p -> (p > 0) and (p mod 7 = 0)).Sum.Println
end.
Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
1)Windows XP\7\8\8.1\10
2)WinRar\7zip
3)Windows Defender\Kaspersky
4)Skype\RC\Teamviewer.
5)Turbo Basic\Quick Basic\Turbo Pascal\Turbo C.
6)WorldPad
7)Paint\Gimp.
8)Microsoft Power Point
9)Microsoft ExeL
10)Wiki
11)DirectX\Microsoft Visual C++
Знаком "\" отметил возможные варианты,можешь выбрать любой из приведённых.