Взаданном тексте заменить все встречающиеся пары из одинаковых цифр, словом ‘две’.введите текст, в котором нет цифр. какой ответ выдаст программа? внесите изменения в программу так, чтобы на этот случай выдавалось сообщение ‘в тексте нет цифр’
Var t: string; f: boolean; i: integer; begin t := '11рыба 122344 р22б2'; // readln(t); i := Length(t)-1; for i := Length(t)-1 downto 1 do if (t[i] in ['0'..'9']) and (t[i] = t[i+1]) then begin Delete(t, i, 2); Insert('две', t, i); f := true; end;
if f then writeln(t) else writeln('нет цифр'); end.
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 function Avg(a:array[,] of integer):real; begin var s:=0; var k:=0; foreach var e:integer in a do if e>0 then begin s+=e; Inc(k) end; if k>0 then Result:=s/k else Result:=1e-100; end;
begin var A:=MatrixRandom(4,4,-50,50); Writeln(A); Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3); var B:=MatrixRandom(5,5,-30,30); Writeln(B); Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3); var C:=MatrixRandom(4,5,-25,38); Writeln(C); Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3); end.
Тестовое решение: [[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]] Среднее арифметическое положительных равно 24.000 [[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]] Среднее арифметическое положительных равно 15.083 [[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]] Среднее арифметическое положительных равно 19.200
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
f: boolean;
i: integer;
begin
t := '11рыба 122344 р22б2';
// readln(t);
i := Length(t)-1;
for i := Length(t)-1 downto 1 do
if (t[i] in ['0'..'9']) and (t[i] = t[i+1]) then begin
Delete(t, i, 2);
Insert('две', t, i);
f := true;
end;
if f then writeln(t)
else writeln('нет цифр');
end.