Ребят кто шарит надо написать программы

[xq1b]

Разработайте программы.
1. Вывести на экран все целые положительные нечетные числа, которые меньше 50.
2. Вывести на экран все целые положительные числа меньше 50, которые делятся на 3, 5.
3. Генератор случайных чисел генерирует 50 вещественных чисел от 0 до 5. Определить количество чисел, попадающих в диапазон (0.25, 2.32).

При решении задач 1 и 2 использовать операции div (целочисленное деление) и mod (остаток от деления целых чисел) и оператор логического условия if … then … else.
При решении задачи 3 использовать процедуру Randomize и функцию Random (x).

скиньте решения пожалуйста в виде ворда на мыло kirill-gtr4@mail.ru или скайп kirill-gtr4

[unbanned]

очень просто и неинтересно... стоит приложить лишь чуточку старания

[Pein95]

скиньте решения пожалуйста в виде ворда на мыло kirill-gtr4@mail.ru или скайп kirill-gtr4

такое вижу впервые) чтоб вопше ничего не сделали, ещо и просят чтоб решения им кудато скинули)

[Вадим Мошев]

За 100 рублей на счёт мобильного телефона сделаю и скину.
Согласны?

[Sparkman]

Сообщение от xq1b

Разработайте программы.
1. Вывести на экран все целые положительные нечетные числа, которые меньше 50.
2. Вывести на экран все целые положительные числа меньше 50, которые делятся на 3, 5.
3. Генератор случайных чисел генерирует 50 вещественных чисел от 0 до 5. Определить количество чисел, попадающих в диапазон (0.25, 2.32).

1)целые положительные нечетные числа, которые меньше 50

begin
      write(1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49);
end.

2)все числа делятся на 3, 5

begin
      write(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,17,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49);
end.

3)

var a:array[1..50] of real;
i,c:integer;
begin
     randomize;
     c := 0;
     for i:=1 to 50 do
     begin
          a[i] := random(500)/100;
          if round(a[i]*100) in [25..232] then inc(c);
     end;
end.

[xq1b]

я пытался делать и сделал 5 из 8 задач а эти 3 ни как не могу вот и прошу помочь студенту а вы сразу огрызаетесь и просити наличные за помощь спасибо вам большое!!!

[xq1b]

спасибо биг все я понял)))))

[Вадим Мошев]

а вы сразу огрызаетесь

Где?..........