Ятак понимаю вам нужна программа на паскале program zadacha; var s,k,n,p,i: integer; begin s: =0; p: =1; readln(n,k); for i: =1 to n do p: =p*10; for i: =trunc(p/10) to p-1 do if i mod k=0 then s: =s+i; write(s); end.
Спасибо
Ответ дал: Гость
р в квадрате так
Ответ дал: Гость
если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
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.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Популярные вопросы