Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??
Посылка это - такая вещь, короче, коробка и в ней предмет, и его можно передать из дальних городов или стран, вот это и называют посылкой
В паскале попробывал все получилось)
var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.
begin
var n := ReadInteger('Укажи число оленей:');
var s := 0;
Writeln('Вводи количество косточек, попавших в каждого оленя');
for var i := 1 to n do
s += ReadInteger;
Writeln('Количество саженцев = ', s)
end.