pahalovrzx

27.11.2022 10:41

Информатика

Есть ответ 👍

Решить в виде блок-схем, с циклов : 1.) даны натуральные числа x и y. найти количество нечетных чисел, меньших x+y. 2.) билет называют "счастливым", если в его номер сумма первых трёх цифр равна сумме последних трёх. подсчитать число тех "счастливых" билетов, у которых сумма трёх цифр равна 13. 3.) найти наименьшее натуральное число, при делении на 2, 3, 4, 5, 6 соответственно остатки 1, 2, 3, 4, 5. 4.) составьте программу, которая будет находить суммы цифр числа.. 5.) найти все натуральные числа от 1 до 100 кратные 3. 6.) написать программу решения о печати чисел 3 5 7 9 11 13. 7.) печатать «ноль» указанное количество раз.

128

472

Посмотреть ответы 2

Ответы на вопрос:

али421

Информатика

4,6(3 оценок)

вводим переменные x и y.

переменная k -количество равно нулю и i равно единице.

repeat

k: =k+1;

i: =i+2;

until i> =(x+y)

program specialhappytickets;

var

i, j, k, l, m, n, s: integer;

begin

s : = 0;

for i : = 0 to 9 do

for j : = 0 to 9 do

for k : = 0 to 9 do

for l : = 0 to 9 do

for m : = 0 to 9 do

for n : = 0 to 9 do

if (i + j + k) = (l + m + n) then

if i + j + k = 13 then s : = s + 1;

writeln(s)

end.

program specialhappytickets;

var

i, j, k, l, m, n, s: integer;

begin

s : = 0;

for i : = 0 to 9 do

for j : = 0 to 9 do

for k : = 0 to 9 do

for l : = 0 to 9 do

for m : = 0 to 9 do

for n : = 0 to 9 do

if (i + j + k) = (l + m + n) then

if i + j + k = 13 then s : = s + 1;

writeln(s)

end.

результат выполнения программы:

5625

var a,i: integer; b: boolean;

begin

a: =1;

repeat

b: =true;

for i: =2 to 6 do

b: =b and (a mod i = (i-1));

if not b then a: =a+1;

until b;

writeln('a = ',a);

end.

результат:

a = 59

program summa;

var a,x: integer;

i,s: integer;

begin

writeln('введите целое число');

readln( a );

x: =a;

s: =0;

while ( x< > 0 ) do begin s : = s + (x mod 10);

x : = x div 10;

end;

writeln( 'сумма цифр числа ',a,' = ', s );

end.

1. количество нулей в конце числа равно количеству десяток в этом числе. поскольку число 10 состоит из двух простых множителей: 2 и 5, то в конце числа будет столько же нулей, сколько пятерок в числе (т. к. двоек в 100! намного больше).

2. найдем число пятерок в 100! среди чисел от 1 до 100:

1) 5^3 - нет;

2) 5^2 - 25; 50; 75 и 100 - 4 числа;

3) кратных 5: 100/5 = 20 чисел.

const n=8;

var a: array[1..n] of integer;

i,z: integer;

begin

z: =1;

for i: =1 to n do

begin

a[i]: =z*(2*i-1);

write(a[i],' ');

z: =-z;

end;

end.

var i,n: integer;

begin

write ('количество раз');

readln(n);

for i: =1 to n do

write(0);

end.

Элчанкин

Информатика

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

34 , 76 , 84

Объяснение:

вот ответы дай балов

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.