program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Ответ дал: Гость
1)
var
s,r: string;
i: integer;
begin
readln(s);
r: ='';
for i: =1 to length(s) do
if s[i]< > 'a' then r: =r+s[i];
writeln(r);
end.
2)
текст разделяем знаками препринания
var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;
begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.
Ответ дал: Гость
специалист сельского хозяйства с высшим образованием, всесторонними знаниями в области агрономии.
уличный танец, одно из течений хип-хоп культуры.
непродолжительная по времени художественно составленная последовательность кадров.
единица измерения расстояния в некоторых европейских неметрических системах мер
светозащитные устройства, состоящие из вертикальных или горизонтальных пластин.
морская рыба семейства .
ехнические приёмы получения движущихся изображений, иллюзий движения и/или изменения формы объектов (морфинг) с нескольких или множества неподвижных изображений и сцен.
сладкое блюдо кухни.
универсальный прил. 1) охватывающий всё или многое; всеобъемлющий. 2) разными знаниями, навыками; разносторонний. 3) выполняющий разнообразные функции.
Популярные вопросы