Uses crt; var s1:string; s2:char; k,y,x:integer; begin readln(s1); k:=0; for x:=1 to length(s1) do begin s2:=s1[x]; if (ord(s2)<=57) and (ord(s2)>=48) then if ord(s2) mod 2=0 then inc(y); end; writeln(y); end.
Var s1,s2:string; i,j,k,m:longint; begin readln(s1); k:=length(s1); s2:='24680'; for i:=1 to k do for j:=1 to 5 do if s1[i]=s2[j] then inc(m); writeln(m); end. ну вроде так, скомпилируй только перед отправкой или сдачей
Есть легенда,что при римской империи,что бы посетить императора для чего-либо,простолюдину нужно было принести дар императору. Мария Магдалина, когда пришла к императору Тиберию о том, что бы сообщить ему благостную весть о воскресении Иисуса Христа ничего при себе не имела,кроме белого яйца.Тогда император сказал: "Я поверю тебе если это белое яйцо станет красным"! Совершилось чудо яйцо туже секунду мгновенно покраснело,тогда Мария Магдалина протянула красное яйцо императору и сказала "Христос Воскрес"! Император Тиберий принял яйцо провозгласил о чуде в словах "Воистину Воскрес"!!Ну так сказать, отсюда и пошло как обычай красить яйца на Пасху.
1) вводить три равных натуральных числа - треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно 2) вводить три неравных натуральных числа - треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно
3) ввести три нуля - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно 4) вводить три равных отрицательных числа - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно 5) ввести три равных или неравных вещественных числа - треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно
var s1:string;
s2:char;
k,y,x:integer;
begin
readln(s1);
k:=0;
for x:=1 to length(s1) do
begin
s2:=s1[x];
if (ord(s2)<=57) and (ord(s2)>=48) then
if ord(s2) mod 2=0 then inc(y);
end;
writeln(y);
end.