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

1)найти количесво делителей натурального числа,сколько из них чётных? 2) дано натуральное число: найти две первые цыфры числа верно ли,что первая цыфраа данного числа чётная? 3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна а(а вводится с клавиатуры) 4)найти все симметричные натуральные числа(палиндромаиз промежутка от а до в(а и в вводится с клавиатуры)

👇
Ответ:
Alyyya
Alyyya
14.02.2022

1000 В и 4000000тыс. А + 1000 В И 400*400

4,5(94 оценок)
Открыть все ответы
Ответ:
marinavn2008
marinavn2008
14.02.2022

А) FOR K:= 1 TO 5.5 DO  В цикле нельзя давать нецелые числа должно быть так FOR K:= 1 TO 5 DO

Б) FOR J:= 10 TO -2 DO  Тут цикл идет не по прямой а в обратную сторону

а TO обозначает идти вперед, должно было быть так

FOR J:= 10 DOWNTO -2 DO  

В) FOR X:= 3 DOWNTO 12 DO  Тут же все наоборот цикл идет в обратную сторону а должен идти по прямой

FOR X:= 3 TO 12 DO

Г) FOR Y = 0 TO 7 DO  Тут не хватает  :   без них перед = нельзя делать цикл FOR    FOR Y:= 0 TO 7 DO

2. ЗАПОЛНИТЕ В ТАБЛИЦЕ, ЧТО БУДЕТ ВЫВЕДЕНО В РЕЗУЛЬТАТЕ

ВЫПОЛНЕНИЯ ЦИКЛА

1. FOR X:= 5 DOWNTO 2 WRITE('#');  ответ:

2. FOR X:= 1 TO 5 WRITE('#');    ответ:

3. FOR X:= 0 TO 5 WRITE('#');  ответ:

4. FOR X:= 2 TO 7 WRITE('#');   ответ:

5. FOR X:= -5 TO 1 WRITE('#');   ответ:

6. FOR X:= 6 DOWNTO 5 WRITE ('#'); ответ:##

Объяснение:

4,8(81 оценок)
Ответ:
Sergfijd
Sergfijd
14.02.2022

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x-12*x);

writeln('y равен: ', y);

end.

Либо

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*(sin3*x)-12*x;

writeln('y равен: ', y);

end.

Объяснение:

Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно

Вариант по той формуле, как она дана (как я её понял

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x)-12*x;

writeln('y равен: ', y);

end.

4,5(11 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ