Вопрос Программисты, нужна ваша помощь на паскале

sereganemes

S

sereganemes

Регистрация

3 Ноя 2013

Сообщения

80

Репутация

-6

Спасибо

0

Монет

0

• 22 Янв 2025

• #1

вот, нужно написать программу, НА ПАСКАЛЕ, это важно, выручайте ??

 

somy6ka

S

somy6ka

Регистрация

21 Сен 2013

Сообщения

110

Репутация

0

Спасибо

0

Монет

0

• 22 Янв 2025

• #2

Вроде так var
prev, num, count: integer;
begin
count := 0;
readln(prev);

while prev <= 1000 do
begin
readln(num);
if num > 1000 then
break;

if (prev mod 3 = 0) and (num mod 3 <> 0) then
inc(count);

prev := num;
end;

writeln(count);
end.

 

asdasd123

A

asdasd123

Регистрация

10 Авг 2013

Сообщения

80

Репутация

-2

Спасибо

0

Монет

0

• 22 Янв 2025

• #3

Сука кто сейчас Паскалем пользуется

 

ZAINAL

Z

ZAINAL

Регистрация

18 Май 2013

Сообщения

84

Репутация

-9

Спасибо

0

Монет

0

• 22 Янв 2025

• #4

Я об этом языке вообще никогда не слышал...

 

tikhdimiv

T

tikhdimiv

Регистрация

23 Ноя 2013

Сообщения

85

Репутация

0

Спасибо

0

Монет

0

• 22 Янв 2025

• #5

Ни один современный программист не пишет на Паскале. Учи лучше Пайтон