for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
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.
Ответ дал: Гость
а) наличие электромагнитного излучения, сrt
б) ухудшение качества изображения при изменении угла обзора, lcd
в) компактные размеры lcd
г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt lcd
д) формирование изображения с лучей электронных пушек, crt
е) меньший вред для здоровья человека при работе. lcd
Ответ дал: Гость
всмысле какая ? (ну если я правильно понял вопрос,то )тут находится только с по формуле: (a+b)*(b-a) и выводит результат (с) на экран.
Популярные вопросы