Информатика, опубликовано 31.01.2019 21:50
Составьте программу ,которая: считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «м».решение паскаль через цикл
Ответы
Ответ оставил: Гость
program primer; var st1,st: string; a,b: integer; beginwrite('введите текст ,в конце ввода нажмите enter'); writeln; read(st); for a: =1 to length(st) do beginst1: =copy(st,a,1); if st1='м' theninc(b)else if st1='м' theninc(b)else; end; write(b);
end.
Ответ оставил: Гость
Как называется тема ?Ответ оставил: Гость
Program S;var s,a,n:of integer;
begin
read(a);
read(n);
s:=(a*n)/2;
writeln(s);
end.
Ответ оставил: Гость
100 - 50 + 30= 2020 - основная система счисления
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
