Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
адекватная)
сегодня,23 сентебря было найдено щенка!
окрас белый,шерть пушыстая,рост маленький.
кто потерял обращайтесь по номеру [email protected]@@@@@
неадекватная)
этой осенью,37.12.2045 года было найдено кота!
окрас фиолетовый,шерсть только на лапках,глаза красные.
кто оставил в туалетном бачку обращайтесь ко мне!
решение на языке pascal
program pr;
var n,a,b,c, sum: integer;
begin
readln (n);
a: =n div 100;
b: =n mod 100 div 10
c: =n mod 10
sum: =a+b+c;
if sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');
readln;
end.
var
i,j,k: integer;
s,p: string;
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);
Популярные вопросы