Запишите с букв и знаков логических операций каждое высказывание. 1) 12 декабря отмечают день конституции рф или день народного единства 2) зимой дети катаются на коньках или на лыжах. 3) новый год мы встретим на даче или на красной площади. 4) неверно, что солнце движется вокруг земли. 5 земля имеет форму шара, который из космоса кажеться голубым. 6) на уроке старшеклассники ответили на вопросы учителя, а также писали самостоятельную работу.

👇

Ответ:

Kosty12541

18.01.2020

1)12 декабря празднуется день конституции РФ || День народного единства
2)Зимой дети катаются на коньках || лыжах
3)Новый год мы встретим на даче || на Красной площади
4)!(Солнце движется вокруг Земли)
5)Земля - шар & голубой из космоса
6)На уроке старшеклассники отвечали на вопросы учителя & писали самостоятельную работу

4,5(32 оценок)

Открыть все ответы

Ответ:

НеШкольник228228

18.01.2020

Var
    i, s1, s2, s3, s4, n: integer;

begin
    write('n = ');
    readln(n);
    s1 := 0;
    s2 := 0;
    s3 := 0;
    s4 := 0;

    for i := 1 to n do
    begin
        s1 := s1 + i;
        s2 := s2 + sqr(i);
        if i mod 2 = 0 then s3 := s3 + i;
    end;

    for i := 10 to 99 do s4 := s4 + i;

    writeln('Сумма первых n натуральных чисел: ', s1);
    writeln('Сумма квадратов первых n натуральных чисел: ', s2);
    writeln('Сумма всех четных чисел: ', s3);
    writeln('Сумма всех двухзначных чисел: ', s4);
end.

4,5(44 оценок)

Ответ:

Tobirama0shok

18.01.2020

Попробуй так Uses Graph, CRT;
   var
       d,r,r1,r2,rr,k,
       x1,y1,x2,y2,x01,y01: Integer;
       Xasp,Yasp : Word;

begin
{Инициируем графику}
     d := detect;
     InitGraph(d, r, ' ') ;
     k:= GraphResult;
     if k <> grOK then WriteLn(GraphErrorMSG(k))
else
begin
{Определяем отношение сторон и размеры экрана}
x1 := GetMaxX div 2;
y1 := GetMaxY div 2;
GetAspectRatio(Xasp, Yasp);

{Вычисляем радиусы:}
r:= round(3*GetMaxY*Yasp/8/Xasp);
r1 := round(0.9*r); {Часовые деления}
r2 := round(0.95*r); {Минутные деления}

{Изображаем циферблат}
Circle(x1,y1,r); {Первая внешняя окружность}
Circle(x1,y1,round(1.02*r)); {Вторая окружность}

for k := 0 to 59 do {Деления циферблата}
    begin
       if k mod 5=0 then
           rr := r1 {Часовые деления}
      else
           rr:= r2 ; {Минутные деления}

{Определяем координаты концов делений}
x01 := x1+Round(rr*sin(2*pi*k/60));
y01 := y1-Round(rr*Xasp*cos(2*pi*k/60)/Yasp);
x2 := x1+Round(r*sin(2*pi*k/60));
y2 := y1-Round(r*Xasp*cos(2*pi*k/60)/Yasp);
Line(x01,y01,x2,y2) {Выводим деление}
end;

{Готовим вывод стрелок}
SetWriteMode(XORPut);
SetLineStyle(SolidLn,0,ThickWidth);
r := 0; {Счетчик минут в одном часе}

{Цикл вывода стрелок}
repeat
   for k := 0 to 59 do {k = минуты}
      if not KeyPressed then
         begin
                {Координаты часовой стрелки}
                x2 := x1+Round(0.85*r1*sin(2*pi*r/60/12));
                y2 := y1-Round(0.85*r1*Xasp*cos(2*pi*r/60/12)/Yasp);

                {Координаты минутной стрелки}
                x01:= x1+Round(r2*sin(2*pi*k/60));
                y01:= y1-Round(r2*Xasp*cos(2*pi*k/60)/Yasp);

                {Изображаем стрелки}
                 Line(x1,y1,x2,y2);
                 Line(x1,y1,x01,y01);
                 Delay(100); {Для имитации реального темпа
                                      нужно установить задержку 60000}
                                     {Для удаления стрелок выводим их еще раз!}
                 Line(x1,y1,x01,y01);
                 Line (x1,y1,x01,y01 ) ;

{Наращиваем и корректируем счетчик минут в часе}
inc(r);
if r=12*60 then
r := 0
end
until KeyPressed;
if ReadKey=#0 then k:=ord(ReadKey);
CloseGraph;
end
end.

4,7(42 оценок)

Это интересно:

Стиль-и-уход-за-собой

27.10.2021

10 простых способов быть привлекательной...

Компьютеры-и-электроника

11.09.2020

Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...

Компьютеры-и-электроника

16.04.2022

Как играть онлайн в Words with Friends...

Кулинария-и-гостеприимство