Измнить код так, чтобы положительные числа делились на 2

@dolphin8383 · Регистрация: 10.05.2011

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

Друзья, вопрос в следующем.... Надо измнить код таким образом, что бы положительные числа делились на 2. Голову уже сломал

Название: 1.JPG
Просмотров: 17

Размер: 7.8 Кб

Название: 1.JPG
Просмотров: 17

Размер: 7.8 Кб

допустим вот такие числа.

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
26
27
28
29
30
31
32
33
program lr2z2;
uses
crt;
const
n = 10;
type massiv = array[1..n] of integer; 
var
f_in, f_out: text;    
i,x: integer;
s:massiv;
begin
clrscr;
assign(f_in, 'in.txt');
assign(f_out, 'out.txt');
reset(f_in);      
rewrite(f_out);   
i:=0;
while not (eof(f_in)) do
begin
i:=i+1;
readln (f_in,x);
if x>0 then
begin
s[i]:=abs(x);
end
else 
s[i]:=x;
end;
for i := 1 to n do
write(f_out, ' ',s[i]);
close(f_in);
close(f_out);
end.

помогите пожалуйста!

@SuPeR XaKer · 19.05.2011, 18:33

А отрицательные?Их тоже в файл результирующий записывать?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
 crt;
var
 f_in, f_out: text;
 x: integer;
begin
clrscr;
assign(f_in, 'D:\1.txt');
assign(f_out, 'D:\2.txt');
reset(f_in);
rewrite(f_out);
while not (eof(f_in)) do
begin
 readln (f_in,x);
 write(x:4);
 if x>0 then writeln(f_out,x/2)
 else writeln(f_out,x);
end;
close(f_in);
close(f_out);
end.

@dolphin8383 · 19.05.2011, 18:48 **[ТС]**

нет надо только те которые делятся на 2 положительные, а все остальное так сказать дроп

@SuPeR XaKer · 19.05.2011, 19:22

лучше покажи что должно получиться в результирующем.

@dolphin8383 · 19.05.2011, 21:26 **[ТС]**

В файле должно остаться только -4 6 8 а другого не надо, только те числа которые можно поделить на 2

@SuPeR XaKer · 19.05.2011, 21:33

что бы положительные числа делились на 2

-4

ты уж определись либо положительные либо любые делящиеся на 2 без остатка.

@dolphin8383 · 19.05.2011, 21:34 **[ТС]**

лучше что бы не ошибиться лучше 6 8

@SuPeR XaKer · 19.05.2011, 21:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
 crt;
var
 f_in, f_out: text;
 x: integer;
begin
clrscr;
assign(f_in, 'D:\1.txt');
assign(f_out, 'D:\2.txt');
reset(f_in);
rewrite(f_out);
while not (eof(f_in)) do
begin
 readln (f_in,x);
 write(x:4);
 if (x>0) and (x mod 2=0) then writeln(f_out,x);
end;
close(f_in);
close(f_out);
end.

Не по теме:

думал ещё я объяснять не умею.а оказывается есть люди которые хреновей чем я объясняют.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

Измнить код так, чтобы положительные числа делились на 2

Решение

Решение

@dolphin8383 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 26
	19.05.2011, 18:48 [ТС]
	нет надо только те которые делятся на 2 положительные, а все остальное так сказать дроп 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	19.05.2011, 19:22
	лучше покажи что должно получиться в результирующем. 0

@dolphin8383 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 26
	19.05.2011, 21:26 [ТС]
	В файле должно остаться только -4 6 8 а другого не надо, только те числа которые можно поделить на 2 0

@dolphin8383 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 26
	19.05.2011, 21:34 [ТС]
	лучше что бы не ошибиться лучше 6 8 0