Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 02.06.2012
Сообщений: 11
1

Напечатать все степени двойки, не превышающие заданного числа М

02.06.2012, 04:19. Показов 2955. Ответов 3
Метки нет (Все метки)

Прошу вас помогите,решить эти задачи, пожалуйста

1) Напечатать все степени двойки, не превышающие заданного числа М
2) Найти сумму всех нечетных чисел от М до Н
3) Найти произведение всех четных чисел от М до Н
4) Для заданных М, Н найти количество их общих делителей
5) Найти количество нулей в каждом столбце двумерного целочисленного массива
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2012, 04:19
Ответы с готовыми решениями:

Распечатать все целые степени двойки, не превосходящие заданного n
Задача с сайта stepik.org По данному числу N распечатайте все целые степени двойки, не...

Вывести все степени числа 3, не превышающие 1000
1. Вывести все степени числа 3, не привышающие 1000

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры
получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.

Найти все нечетные числа последовательности Фибоначи, не превышающие заданного числа
Помогите пожалуйста! Языки Си. Найти все нечетные числа последовательности Фибоначи, не...

3
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
02.06.2012, 07:50 2
Цитата Сообщение от Антон Иванов Посмотреть сообщение
1) Напечатать все степени двойки, не превышающие заданного числа М
Pascal
1
2
3
4
5
6
7
8
9
10
Var m,t:integer;
Begin
    write('Введите M: ');readln(m);
    t:=1;
    While t<m do
     Begin
      t:=t*2;
      if t<m then write(t:3);
     End;
End.
Добавлено через 4 минуты
Цитата Сообщение от Антон Иванов Посмотреть сообщение
2) Найти сумму всех нечетных чисел от М до Н
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var m,h,i,s:integer;
Begin
    s:=0;
    Repeat 
    write('Введите M: ');readln(m);
    write('Введите H: ');readln(h);
    Until m<h;
    For i:=m to h do
     if i mod 2 <> 0 then s:=s+i;
    writeln('Sum=',s);
End.
Добавлено через 1 минуту
Цитата Сообщение от Антон Иванов Посмотреть сообщение
3) Найти произведение всех четных чисел от М до Н
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var m,h,i:integer;
    p:longint;
Begin
    p:=1;
    Repeat 
    write('Введите M: ');readln(m);
    write('Введите H: ');readln(h);
    Until m<h;
    For i:=m to h do
     if i mod 2 = 0 then p:=p*i;
    writeln('Proizvedenie=',p);
End.
Добавлено через 5 минут
Цитата Сообщение от Антон Иванов Посмотреть сообщение
4) Для заданных М, Н найти количество их общих делителей
Pascal
1
2
3
4
5
6
7
8
9
Var m,h,i,k:integer;
Begin
    k:=0;
    write('Введите M: ');readln(m);
    write('Введите H: ');readln(h);
    For i:=1 to H div 2 do
     if (m mod i = 0 )and(h mod i = 0) then inc(k);
    writeln('Кол-во общих делителей: ',k);
End.
Добавлено через 27 минут
Цитата Сообщение от Антон Иванов Посмотреть сообщение
5) Найти количество нулей в каждом столбце двумерного целочисленного массива
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var A:array[1..100,1..100] of integer;
    i,j,m,n:integer;
Function Kol(j:integer):integer;
Var i,k:integer;
Begin
    k:=0;
    For i:=1 to n do
     if A[i,j]=0 then inc(k);
    Kol:=k;
End;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите ко-во столбцов: ');readln(m);
    For i:=1 to n do
     Begin
      For j:=1 to m do 
       Begin
        A[i,j]:=Random(10)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
     For j:=1 to m do
      writeln('В ',i,'-ом столбце кол-во нулей = ',Kol(j));
End.
0
0 / 0 / 0
Регистрация: 02.06.2012
Сообщений: 11
03.06.2012, 12:02  [ТС] 3
Спасибо большое Артем! Но скажи, плз в первой задаче в последней строчке
if t<m then write(t:3) зачем т делить на 3?
А если например задача будет не степени двойки, а тройки или пятерки?
t:=t*2 здесь вместо двойки заменить на то,что нужно?
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,262
Записей в блоге: 1
03.06.2012, 12:04 4
Цитата Сообщение от Антон Иванов Посмотреть сообщение
Спасибо большое Артем! Но скажи, плз в первой задаче в последней строчке
if t<m then write(t:3) зачем т делить на 3?
А если например задача будет не степени двойки, а тройки или пятерки?
t:=t*2 здесь вместо двойки заменить на то,что нужно?
Это не деление! а форматированный вывод т.е под переменную t отводится 3 позиции...
Да просто меняешь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2012, 12:04

Найдите все натуральные числа, не превышающие заданного числа N
Найдите все натуральные числа, не превышающие заданного числа N, которые делятся без остатка на...

Найти все простые числа , не превышающие заданного числа
Задача: Найти все простые числа , не превышающие заданного числа w Мой вариант: ...

Вычислить все простые числа, не превышающие заданного N
Помогите решить 2 задачи плиз!!!! 1.) Вычислить все простые числа, не превышающие заданного N....

Вычислить все простые числа, не превышающие заданного
Вычислить все простые числа, не превышающие заданного N. што у меня здесь не так????????? ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru