если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Ответ дал: Гость
где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.
само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.
Ответ дал: Гость
сумма=18
семерки нету
или тебе программу написать?
Ответ дал: Гость
1)
var a,b,c,d: real;
begin
read(a,b);
c: =(a+b)/2;
d: =2*a*b;
if a> b then begin
a: =d;
b: =c;
end;
if a< b then begin
a: =c;
b: =d;
end;
writeln(a,' ',b);
end.
2)
var a,b: integer;
begin
read(a,b);
if (a< 1) or (a> 31) then writeln(' день введен неправильно');
if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');
Популярные вопросы