М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ivancerbadji
ivancerbadji
01.05.2023 21:45 •  Информатика

Написать программы для паскаля, по которой можно получить несколько младших цифр числа

👇
Ответ:
linali20041
linali20041
01.05.2023
Program z1;
var a,b:real;
begin
Read(a);
b:=random(10);
For i:=1 to 3 do
begin
a:=a-b;
write (a);
end;
end.
4,6(66 оценок)
Открыть все ответы
Ответ:
Shatunova1976
Shatunova1976
01.05.2023

Да, является

Объяснение:

Всё очень просто, символ "и" в информатике то же самое, что умножение в математике, а "или" тождественно сложению.

Функция или выражение истинно - значит, что функция или выражение равны "1", а ложны - равны "0"

Если X=1, а Y=2, то первое выражение "(X>0)" - истинно, так как 1>0, а истинно - значит = 1

Второе выражение "(Y>1)" так же истинно, так как 2>1, а истинно, как мы выяснили, - значит = 1

Третье выражение "(X<-1)" будет ложным, так как 1<-1 - не верно, а значит это выражение = 0

И получается простейшее уравнение, нам надо выяснить верно ли это, переведя всё в чисто математический вид:

(1*1)+0=1

1=1

Как мы видим, просто посчитав, мы получаем верное равенство, а значит наше выражение истинно при данных значениях X и Y

4,8(17 оценок)
Ответ:
ikujtdhc
ikujtdhc
01.05.2023
Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.
4,7(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ