если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
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.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Ответ дал: Гость
var
x: real;
begin
readln(x);
writeln(x: 0: 0);
end.
Ответ дал: Гость
1)10см=3,937дюма
dpi - точек на дюйм
3,937*1000=3937 - точек
3937*3937=15499969 точек
каждая точка кодируется 2-мя байтами
всего 30999938 байт
1 мегабайт = 1024*1024=1048576
на картинку 29,56 мегабайта
2) 256 1 байт
200*100=20000 пикселей
1 килобайт = 1024 байта
картинка займет 20000/1024=19,5 килобайта
ps а вообще, каждое нужно писать отдельно
Ответ дал: Гость
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
Популярные вопросы