В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
LidaTetyorkina
LidaTetyorkina
28.07.2022 20:04 •  Информатика

Найдите значение выражения “не A&BVB”. Для решения задачи постройте таблицу истинности. ответы предоставьте в форме:
Когда A истина и B ложь: [ложь/истина],[ложь/истина],[ложь/истина].
Когда A ложь и B истина: [ложь/истина],[ложь/истина],[ложь/истина].

Показать ответ
Ответ:
инна103
инна103
12.08.2021 11:23

Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.

Объяснение:

program Sum_cifr;

var i, x, a, b, S:integer;

begin

 readln(a, b);

 S:=0;

 for i:= a to b do

   begin

   

   x:=Abs(i);     // делаем положительным число, если оно отрицательное

   while x>0 do                    // цикл, в котором будет число

       begin                             //будет разбиваться на цифры

       

       S:= S+(x mod 10);    // отсекаем у числа последнюю цифру

       x:= x div 10;            //  и складываем, а после убираем последнюю

                                       // цифру у самого числа

       end;

   

   end;

 writeln(S)

end.

0,0(0 оценок)
Ответ:
fredkalash
fredkalash
27.01.2020 21:25
Увеличьте шаг в 10 раз
До x := x + 0.02
После x := x + 0.02*10

Измените промежуток на котором строится график функции на [-5, 10]
До
x := -15;
    while x <= 15 do
После
x := -5;
    while x <= 10 do


Измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.
До y := 0.4 * x + 2 * sin(3 * x);
После 2) y := sin(x)+2*x;
После 1) y := tan(x);


Выведите на экран график функции только в I и IV четвертях
До circle(x1, y1, 2);
После if x*y>=0 then circle(x1, y1, 2);


Измените цвет фона, цвет графика функции, цвет координатных осей
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
program Grafik;

uses GraphABC;
var
    x0, y0, x1, y1, k: integer;
    x, y: real;

begin
    SetWindowSize(640, 400);
    Window.Clear(clGold);
   
    x0 := 320;y0 := 200;k := 20;
    setPenColor(clRed);
    line(20, y0, 620, y0);
    line(x0, 20, x0, 380);
   
    setPenColor(clGreen);
    SetBrushColor(clLime);
    x := -5;
    while x <= 10 do
    begin
        //        y := 0.4 * x + 2 * sin(3 * x);
        //        y := sin(x)+2*x;
        y := tan(x);
        x1 := trunc(x0 + x * k);
        y1 := trunc(y0 - y * k);
        if x * y >= 0 then circle(x1, y1, 2);
        x := x + 0.02
    end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота