Var i: Integer; n: String;
Begin
readln(n);
for i := 1 to length(n) do
if n[i] = ',' then n[i] := '.';
writeln(n);
End.
1-С) достоверность - отражает истинное положение дел
2-Е) точность - степень близости к реальному состоянию объекта
3-В) ценность - важность при решении задач
<span>4-D) понятность - </span>выраженность на языке доступном для получателя информации
<span>5-А) своевременность - </span>актуальность информации
1)
Program n1;
var i: integer;
begin
for i:=1 to 5 do writeln('Иван Иванов');
end.
2)
Program n2;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln(sum);
end.
3)
Program n3;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i*i;
writeln(sum);
end.
4)
Program n4;
var a: integer;
begin
readln(a);
while a<>0 do readln(a);
end.
Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?