|
Решения задач на Паскале!Срочно нужно!
|
|
Дело вот в чем, училки задали задание на лето, в том числе и по информатике, задачи немогу решить что обидно:(
Помогите пожалуйста, незабуду поставить плюсик:)
Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делищихся ни на одно из чисел 2,3,5.
В бригаде работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следущая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3,но не делятся на 5.
Заранее благодарен вам)))
Жизнь вселенной длинною в бесконечность
|
|
|
|
Quote (Руслан) Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делищихся ни на одно из чисел 2,3,5.
var
i,n:integer;
begin
read(n);
writeln('Количество натуральных чисел не превосходящих N = ',n);
for i:=1 to n do
if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) then
writeln('Одно из чисел не делящихся на 2,3 и 5 - ',i);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Руслан) В бригаде работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следущая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Судя из условия код такой
var
n:integer;
begin
read(n);
writeln(0);
end.
Потому-что спрашивается сколько работала бригада, а не сенокосилки))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Руслан) Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3,но не делятся на 5.
var
i:integer;
begin
for i:=20 to 50 do
if (i mod 3=0) and (i mod 5<>0) then writeln(i);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Люди помогите написать инструкцию присваения на Паскале этой формулы:x = (a+b)2 – a3 + 3 / a-b + 2 (a+b) / 2a
используя для проверки, что, если a=2 и b=3, то x=–17.5.
|
|
|
|
|
ЛЮдии! срочно, брата отчислят....помогите нужна прога сумма всех парных чисел последовательность от 0 до 30...
|
|
|
|
var
a,i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then a:=a+i;
write(a);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Будьте добры, помогите пожалуйста, с меня +-ики. Задали задачи , а я первокурсник..В группе никто ничего незнает и разобраться немогу.
1 Задача..Пускай D- третяя координатная четверть.А(х,у) - любая точка на плоскости.Найти f(x,y),если система f(x)=
1 уровнение: x^-5 + е^-y, если А принадлежит D.
2 уровнение: 1/ |x^2+4y-5|+1, Если А не принадлежит D.
2 Задача. Дано четыре числа. Если сума наименьшего и наибольшего больше сумы двух остальных чисел, то найти среднее геометрическое всех чисел, иначе найти их среднее арифметическое.
3 Задача. По введеному числу (От 0 до 14) определить х-ку числа ( делится на 3, делится на 5, не делится не на 3 , не на 5.
|
|
|
|
помогите пожалуйста.
протабулировать функцию у = х в квадрате +3 на интервале -5 до 5 с числом единицы .записать в одномерный массив все значения у. подсчитать кол-во элементов больше среднего ариф
|
|
|
|
|
найти время которое показывает часы задана в чесах минут и секунд.Определ через сколько секунд чесов и минут стрелка совместяться?
|
|
|
|
|
Здравствуйте) Нужно решить задачу 3 циклами: До, Для, Пока. Найти номер наименьшего элемента множества {sin1, sin2, ..., sinM}
|
|
|
|
помагите решить! мне делать кучу уроков на инфу времени нет!
в одномерном массиве, элементы которых целые числа:
удалить из массива все элементы,последняя цифра которая равна данной.
|
|
|
|
Quote (native-speaker) Здравствуйте) Нужно решить задачу 3 циклами: До, Для, Пока. Найти номер наименьшего элемента множества {sin1, sin2, ..., sinM}
var
a:array[1..100]of integer;
i,j,m,k:integer;
begin
j:=32000;
read(m);
for i:=1 to m do
read(a[i]);
for i:=1 to m do
if j>a[i] then begin j:=a[i];k:=i;end;
writeln(i);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (кирюха) помагите решить! мне делать кучу уроков на инфу времени нет! в одномерном массиве, элементы которых целые числа: удалить из массива все элементы,последняя цифра которая равна данной.
Напиши культурным языком и пример приведи, ничего понять с твоих строк не смог :-/
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
в одномерном массиве, элементы которых целые числа: удалить из массива все элементы,последняя цифра которая равна данной.
пример: [4,5,2,12,6,3,12,5,7,12] и надо удалить все цифры 12. в паскале
|
|
|
|
Quote (кирюха) последняя цифра которая равна данной.
а где сама данная цифра? или я чего-то не понимаю?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
в одномерном массиве, элементы которых целые числа: удалить из массива все элементы,последняя цифра которая равна данной.
так написанно в задачнике.
|
|
|
|
а в чем собственно загвоздка? данной - значит данной - той которая будет задана то есть введена с клавиатуры. сначала считываем последовательность, потом искомое число, потом циклом идем по последовательности и сравниваем каждый элемент с введеным числом
If you can't make it GOOD make it LOOK GOOD. B.Gates
|
|
|
|
блин! мне завтра нужно уже решение! помагите плиззз!!!!
в одномерном массиве, элементы которых целые числа: удалить из массива все элементы,последняя цифра которая равна данной.
№ 219 | Автор: кирюха |
2011-10-04, 16:45 | Изменено: кирюха - Вт, 2011-10-04, 16:45
|
Репутация: [ + 0 ]
|
|
|
|
Quote (DoVe) а в чем собственно загвоздка? данной - значит данной - той которая будет задана то есть введена с клавиатуры. сначала считываем последовательность, потом искомое число, потом циклом идем по последовательности и сравниваем каждый элемент с введеным числом
Это ведь очевидно, по этому и начал интересоваться:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
