Массивы или как узнать номер машины?

@shipa333 · Регистрация: 13.11.2009

Студворк — интернет-сервис помощи студентам

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

Очень прошу. На Pascal надо написать.

№1
Три приятеля были свидетелями нарушения правил дорожного движения. Номер автомобиля (четырёхзначный) ни один из них не запомнил. Однако один запомнил, что этот номер делится на 2, на 7 и на 11; другой запомнил, что в записи номера учавствует только две цифры, а третия заметил, что сумма цифр числа равна 30. Каков номер машины.

(как эти трое запомнили на что делится и какая сумма номера не запомнив его самого

)

№2
Дан массив A(n), состоящий из целых чисел. получить удвоенную сумму всех положительных элементов.

В школе задание дали по информатике даже не знаю как решить помогите пожалуйста!

Заранее спасибо!

@Drongo · 13.11.2009, 19:38

Вот код по второй задаче.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array [1..100] of integer;
     i, n,sum:integer;
begin
  writeln('vvedite kol-vo elementov massiva');
  readln(n)
  writeln ('vvedite elementy massiva');
  for i:=1 to n do  readln (a[i]);
     sum:=0;
     for i:=1 to n do 
     if a[i]>0 then sum:=sum+a[i];  
  writeln('удвоенная сумма положительных элементов равна ', sum*2);
  readln;
end.

@кот Бегемот · 13.11.2009, 20:01

А вот к первой:

Pascal
1
2
3
4
5
6
7
var 
i:integer;
begin
for i:=1000 to 9999 do
if (i mod 2=0)and(i mod 7=0) and(i mod 11=0)and(i mod 10+(i div 10)mod 10+(i div 100)mod 10+i div 1000=30) 
then writeln(i);
end.

Условие про равенство цифр избыточно, так как программа и без него даёт единственный ответ 8778

@nikkka · 13.11.2009, 20:14

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

for i:=1 to n do readln (a[i]);
sum:=0;

А end; поставить не надо?

@Puporev · 13.11.2009, 20:35

(i mod 2=0)and(i mod 7=0) and(i mod 11=0) это (i mod 154)

@Drongo · 13.11.2009, 23:56

nikkka, зачем ??? здесь бегина нету

@shipa333 · 14.11.2009, 07:26 **[ТС]**

Всем большое спасибо! Всё работает

в особенности благодарю Drongo и alexevt !!!

Ещё раз спасибо!

@Misha Mag · 05.12.2010, 20:51

А на С++ можно это сделать?
Если да, то помогите кто может?)

@SuPeR XaKer · 05.12.2010, 20:52

А на С++ можно это сделать?

Не по теме:

можно.я разрешаю.делай.

@Misha Mag · 05.12.2010, 20:57

Сообщение от SuPeR XaKer

Не по теме:

можно.я разрешаю.делай.

У тебя есть предложения? Или постебать охото?

@SuPeR XaKer · 05.12.2010, 20:59

У тебя есть предложения? Или постебать охото?

здесь на плюсах тебе это ни кто не перепишит.Раздел Pascal (Паскаль)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@shipa333 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 19

	Массивы или как узнать номер машины? 13.11.2009, 19:02. Показов 2075. Ответов 10 Метки нет (Все метки) Кто может пожалуйста помогите решить эти две задачи Очень прошу. На Pascal надо написать. №1 Три приятеля были свидетелями нарушения правил дорожного движения. Номер автомобиля (четырёхзначный) ни один из них не запомнил. Однако один запомнил, что этот номер делится на 2, на 7 и на 11; другой запомнил, что в записи номера учавствует только две цифры, а третия заметил, что сумма цифр числа равна 30. Каков номер машины. (как эти трое запомнили на что делится и какая сумма номера не запомнив его самого ) №2 Дан массив A(n), состоящий из целых чисел. получить удвоенную сумму всех положительных элементов. В школе задание дали по информатике даже не знаю как решить помогите пожалуйста! Заранее спасибо! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.11.2009, 20:35
	(i mod 2=0)and(i mod 7=0) and(i mod 11=0) это (i mod 154) 0

@Drongo Админю немножко :) 126 / 115 / 25 Регистрация: 05.01.2009 Сообщений: 889
	13.11.2009, 23:56
	nikkka, зачем ??? здесь бегина нету 0

@shipa333 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 19
	14.11.2009, 07:26 [ТС]
	Всем большое спасибо! Всё работает в особенности благодарю Drongo и alexevt !!! Ещё раз спасибо! 0

@Misha Mag 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 12
	05.12.2010, 20:51
	А на С++ можно это сделать? Если да, то помогите кто может?) 0