Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.
var
i,j,k: integer;
s,p: string;
begin
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
end.
1 -6 февраля. / понедельник.
2 - иа.
3 - число "1"
4 - печка.
5 - клюв.
6 - царь.
7 - марка.
8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.
- лондонгермания - берлиниспания - мадридиталия - римпольша - варшаваукраина - киевфранция - париж
да както сама удивилась как мало я знаю(
Популярные вопросы