Выбери верный ответ. Программа, выводящая 40 раз слово "Russia". 1. var i : integer; begin i := 1 to 40 do writeln ('Russia '); readln; end. 2. var i : integer; begin for i := 1 to 40 do readln; end. 3. var i : integer; begin for i := 1 to 40 do writeln ('Russia '); readln; end. 4. var i : integer; begin for i := 1 downto 40 writeln ('Russia '); readln; end.

3

Объяснение:

program pascal_6_forq;

uses crt;

var

i: Integer;

begin

for i:=1 to 40 do

begin

Writeln('russia, ');

end;

readln;

end.

         чертишь координатные оси  , рисуешь круг с радиусов в 2 единичных отрезка , где нибудь т.X и т. Y , т. R внутри круга или на ободе круга , тобишь где прямая с осью имеет общую точку и начинаешь искать всё по моей схеме .  
                                                   
                                                   Ι            Ι
                                                   ΙначалоΙ
                                                   ΙΙ
                                                        Ι
                                                        Ι
                                               
                                               ΙопределениеΙ
                                               Ι      окна        Ι
                                               Ι Ι
                                                        Ι
                                                        Ι
                                                Ι
                                              /                  /
                                             /ввод X,Y,R/
                                            //
                                                        Ι
                                                        Ι
                                                Ι
                                              /   выыод    /
                                             /   рисунка  /
                                            //
                                                        Ι
                                                        Ι
                               нет условие да 
                                  Ι                                              Ι
                                  Ι                                              Ι
                           1 действие                              2 действие
                                  Ι                                              Ι
                                  ΙΙ
                                                         Ι
                                                         Ι
                                             
                                            /                         /
                                           /   вывод X,Y,R  / 
                                          / /
                                                         Ι
                                                         Ι 
                                             
                                             (       конец       )
                                              ⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻

Думаю, что вы пишете программы на Паскале. Я в нём не очень силён, но попытаюсь решить:
program name;
var x, y, a, b: real;
begin
       write('Введите x, y, a, b: ');
       readln(x,y,a,b);
       if (x > a) then begin
             if(y > b) then begin
                  write('Треугольник со сторонами ', a);
                  write(' и ', b, ' поместится на листе бумаги.');
                  end;
             else writeln('Треугольник не поместится на листе бумаги');
        else writeln('Треугольник не поместится на листе бумаги');
end.