Программирование на pascal abc 1.Путем копирования и склеивания получить из слова клоун слово кулон 2.Дано предложение. Определить,каких букв в нем больше: "м" или "н"
42
ОТВЕТЫ
1)
Program n1; var cl,q: string; begin cl:=клоун; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:=м; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:=н; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(kgt;k1) then writeln(м больше чем н); if(klt;k1) then writeln(н больше чем м); end.
Program n1; var cl,q: string; begin cl:=клоун; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:=м; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:=н; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(kgt;k1) then writeln(м больше чем н); if(klt;k1) then writeln(н больше чем м); end.
1.
var s1,s2:string;
begin
s1:=клоун;
s2:=s1[1]+s1[4]+s1[2]+s1[3]+s1[5];
writeln(1: ,s2);
s2:=copy(s1,1,1)+copy(s1,4,1)+copy(s1,2,2)+copy(s1,5,1);
writeln(2: ,s2);
end.
Результат:
1: кулон
2: кулон
2.
var s:string;
i,k1,k2:integer;
begin
writeln(Введите предложение:);
readln(s);
k1:=0; k2:=0;
for i:=1 to length(s) do
case s[i] of
м: k1:=k1+1;
н: k2:=k2+1;
end;
writeln(k1 = ,k1, k2 = ,k2);
if k1gt;k2
then writeln(Букв "м" больше)
else if k1lt;k2 then writeln(Букв "н" больше)
else writeln(Букв "м" и "н" поровну);
end.
Пример:
Введите предложение:
Путем копирования и склеивания получить из слова клоун слово кулон
k1 = 1 k2 = 4
Букв "н" больше
var s1,s2:string;
begin
s1:=клоун;
s2:=s1[1]+s1[4]+s1[2]+s1[3]+s1[5];
writeln(1: ,s2);
s2:=copy(s1,1,1)+copy(s1,4,1)+copy(s1,2,2)+copy(s1,5,1);
writeln(2: ,s2);
end.
Результат:
1: кулон
2: кулон
2.
var s:string;
i,k1,k2:integer;
begin
writeln(Введите предложение:);
readln(s);
k1:=0; k2:=0;
for i:=1 to length(s) do
case s[i] of
м: k1:=k1+1;
н: k2:=k2+1;
end;
writeln(k1 = ,k1, k2 = ,k2);
if k1gt;k2
then writeln(Букв "м" больше)
else if k1lt;k2 then writeln(Букв "н" больше)
else writeln(Букв "м" и "н" поровну);
end.
Пример:
Введите предложение:
Путем копирования и склеивания получить из слова клоун слово кулон
k1 = 1 k2 = 4
Букв "н" больше
30
Отв. дан
Agann
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Бедарев
Паскаль Имеется массив на 10 элементов . Все элементы- ...
2019-05-24 08:16:11
Bandiril
Смядь нмёкё асигёф – смящыд ынэдь нмёкё грущэй г ...
2019-05-24 08:06:06
Laatekyuk
Прочти условия задачи у Вити было семь рублей он ...
2019-05-24 08:05:32
Leebah
8-цветный рисунок содержит 300 байт информации. Из скольких точек ...
2019-05-24 08:04:37