В массиве содержится 10 букв - К, Ш, А, А, З, Л, А, А, К,Ш. Выведете на экран слово, образованное буквами с чётными индексами, а затем с нечётными. Сможешь решить? Или может она у тебя есть уже?))
var
mas: array [1..10] of char;
i:integer;
s1,s2tring;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=s1+mas
[i]
else s2:=s2+mas[i];
writeln(s1);
writeln(s2);
end.
var
mas: array [1..10] of
char;
i:integer;
s1,s2tring;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=s1+mas
[i]
else s2:=s2+mas[i];
writeln(s1);
writeln(s2);
end.
var
mas: array [1..10] of
char;
i:integer;
s1,s2:*string;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=*s1+mas
[i]
else s2:=s*2+mas[i];
writeln(s1);
writeln(s2);
end.
Звёздочки поудаляй я поставили потому что смайлы получаются
var
mas: array [1..10] of
char;
i:integer;
s1,s2:*string;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=*s1+mas
[i]
else s2:=*s2+mas[i];
writeln(s1);
writeln(s2);
end.
Звёздочки поудаляй я поставили потому что смайлы получаются
Мы используем cookie-файлы, чтобы улучшить сервисы для вас. Если ваш возраст менее 13 лет, настроить cookie-файлы должен ваш законный представитель. Больше информации
Комментарии 9
В массиве содержится 10 букв - К, Ш, А, А, З, Л, А, А, К,Ш. Выведете на экран слово, образованное буквами с чётными индексами, а затем с нечётными. Сможешь решить? Или может она у тебя есть уже?))
mas: array [1..10] of char;
i:integer;
s1,s2
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=s1+mas
[i]
else s2:=s2+mas[i];
writeln(s1);
writeln(s2);
end.
mas: array [1..10] of
char;
i:integer;
s1,s2
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=s1+mas
[i]
else s2:=s2+mas[i];
writeln(s1);
writeln(s2);
end.
mas: array [1..10] of
char;
i:integer;
s1,s2:*string;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=*s1+mas
[i]
else s2:=s*2+mas[i];
writeln(s1);
writeln(s2);
end.
Звёздочки поудаляй я поставили потому что смайлы получаются
mas: array [1..10] of
char;
i:integer;
s1,s2:*string;
begin
for i:=1 to 10 do
readln(mas[i]);
for i:=1 to 10 do
if i mod 2=0 then s1:=*s1+mas
[i]
else s2:=*s2+mas[i];
writeln(s1);
writeln(s2);
end.
Звёздочки поудаляй я поставили потому что смайлы получаются