ГLCHIации. Вода - источник жизни»
ВСТАВКА ФИГУР В ПРЕЗЕНТАЦИЮ
3. В таблице
Найди эти
1. Рассмотри рисунок. Найди лишнее окно, которое не при
программе PowerPoint.
6
ә) Рів)
Голая Встанадай
2 Macer
Baatar
Восстанок
con
сайд Ради
Буфер 06 г.
Cale

од радоса е оборгоо
Озеро Баата-анальное
енге Аграас олоор
де
Озеро Баа-укарное лече проем
Becctowe nary peo NOE SOCIO NORS
Каста аеро акта гори по лине
непереохон солён азером после
Контрарам ское са круна
адреса
рассо
tе аn
4. Заполни
На казахск
| Безендіру
2. Рассмотри и напиши алгоритм создания слайда.
Көшіру
Геометрические фигуры
5. Раскрась
Облака
Пятиугольник
ТреугоЛЬНИК
Рыба, состоящая из
геометрических фигур.
Прямоугольник​

А)Начало -> 
 Ввод массива -> 
 Ввод X -> 
 Ввод Y ->
 Если X>Y
 ->no->End
 ->yes->
 p=0 ->
 ∨-> если элемент массива (p) > X, элемент массива (p) = X ->
  если элемент массива (p) < Y, элемент массива (p) = Y ->
  p = p + 1 -> если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец

б)Начало -> 
 Ввод массива -> 
 p=0 ->
 ∨-> если элемент массива (p) %(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)%3
->p=p+1
->если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец
      

ПаскальАВС.нет

var
  f:text;
  s,t:string;
  i,n:integer;
  y:boolean;  //признак наличия слова NO  

function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;

begin
assign(f,'d:/file.txt');
reset(f);
repeat
  readln(f,t);
  s:=t;
  y:=false;
  i:=pos('NO',s);
  while i>0 do
    begin
    n:=length(s);
    if n=2 then
       y:=true
       else
          begin
          if i=1 then
             begin
             if wr(s[i+2])=false then y:=true;
             end
             else
                 if wr(s[i-1])=false then y:=true;
          end;
    delete(s,1,i+2);
    i:=pos('NO',s);
    end; 
  if y=false then writeln(t);
  until f.Eof;
close(f)
end.