С! (pascal abc .net) пользователь вводить числа до нуля. надо: 1. подсчитать сумму все отрицательных четных чисел 2. подсчитать количество четных чисел кратных 3. 3. подсчитать сумму и количество трехзначных нечетных чисел
Program gt; var a,s1,k1,s2,k2:integer; begin a:=1; while a<>0 do begin read(A); if(a<0)and(abs(a)mod 2=0)then s1:=s1+a; if(a mod 2=0)and(a mod 3=0)then k1:=k1+1; if(a>99)and(a<1000)and(a mod 2=1)then begin k2:=k2+1; s2:=s2+a; end; end; writeln('условие 1'); writeln(s1); writeln('условие 2'); writeln(k1); writeln('условие 3'); writeln(s2,' ',k2); end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
var a,s1,k1,s2,k2:integer;
begin
a:=1;
while a<>0 do
begin
read(A);
if(a<0)and(abs(a)mod 2=0)then s1:=s1+a;
if(a mod 2=0)and(a mod 3=0)then k1:=k1+1;
if(a>99)and(a<1000)and(a mod 2=1)then begin
k2:=k2+1;
s2:=s2+a;
end;
end;
writeln('условие 1');
writeln(s1);
writeln('условие 2');
writeln(k1);
writeln('условие 3');
writeln(s2,' ',k2);
end.