Ввести с клавиатуры 8 чисел (2, 3, 4, 10, 5, 8, 7, 20) чисел. найти произведение чисел < 5 даны числа: -2, 10, 6, -5, 14,- 8. найти сумму отрицательных чисел. 3. найти сумму чисел от 1 до 100, делящихся без остатка на 4.
Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842) const s='велосипедист'; var t:='кытунак'; p:string; begin // 1 Writeln(LeftStr(s,9),', ', s[12]+s[2]+s[5]+s[12]+s[4],', ', s[4]+Copy(s,3,2)+s[1]+s[4]); // 2 Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1); // 3 Write('Было: ',t,', стало: '); t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о'); Writeln(t); // 4 Write('Коды символов слова ',t,': '); foreach c:char in t do Write(Ord(c),' '); Writeln; // 5 Write('В слове ',t,' количество букв '); if Odd(t.Length) then Writeln('нечетное') else Writeln('четное') end.
Результат выполнения программы: велосипед, тесто, олово Позиция буквы "д" в слове "велосипедист" равна 9 Было: кытунак, стало: котенок Коды символов слова котенок: 234 238 242 229 237 238 234 В слове котенок количество букв нечетное
1)Const n=8;
Var p, i, a:Integer ;
Begin
Write ('Введите влсемь чисел') ;
P:=1;
For i:=1 to N do begin
Read(a) ;
If a<5 then P:=p*a;
End;
Writeln('произведение чисел меньших пяти ', p) ;
End.
2)Const n=6;
Var p, i, a:Integer ;
Begin
Write ('Введите шесть чисел') ;
P:=0;
For i:=1 to N do begin
Read(a) ;
If a<0 then P:=p+a;
End;
Writeln('сумма чисел меньших нуля ', p) ;
End.
3)Const n=100;
Var i, s:Integer ;
Begin
S:=0;
For i:=1 to N do begin
If i mod 4=0 then s:=s+1;
End;
Writeln(s) ;
End.