Хелп Пд умоляю

кстати, автор тупой ,если бы хотел, что бы помогли , а не потроллели создал бы в мастерской

я в мастерской курсач писал 

я думаю, что тебе на считать строку эту всю, если она статична, преобразовать в массив целых числе и в цикле проверить повторение i и i+1. в случае повторения, сам знаешь что делать, в противном случае далше проверяешь.

если это динамично, то создаешь поток на проверку ввода с клавы чисел, проверяешь каждый из них на совпадение с предыдущим и все и точно также дальше

У меня новая задача.

Продолжите последовательность: 0 0 2 5 23 119

Кто сделает, тому ключ от доты2

up

265

Умение сделать 2 инта в программе и умение читать/выводить информацию исключают возможность подобного вопроса

 

3 инта, еще счетчик нужен :)

Счётчик - первый инт, второй - предыдущий элемент.

Хотя, поскольку про VB ничего не знаю, может понадобиться ещё один инт для складывания нового считанного числа.

Ну я подумал что надо считанное хранить где то. аля lastread, newread, counter.

Т.к. хз как оно в бейсике то со считыванием, считаешь строку, оно передвинет курсор и гл хф считать еще раз если числа разные.( для того чтобы сохранить)

Парень ты неочень, задача по моему даже из школы. Задача в 7 строк, писать не буду, ибо самый простой алгоритм. Составь блок-схему там сразу видно будет, если ты не упоротый уебок с пд :po_weke:  А не ты как раз такой Все пизда тебе, школота

Парень ты неочень, задача по моему даже из школы. Задача в 7 строк, писать не буду, ибо самый простой алгоритм. Составь блок-схему там сразу видно будет, если ты не упоротый уебок с пд :po_weke:  А не ты как раз такой Все пизда тебе, школота

да алгоритм прост, но я тупо не помню даже операторов, помогите ребят?

да нахер не нужна блок схема, вы что шутите?

ввести задачу как массив там

program AVTORUEBOK;
var a,b:integer;
begin 
repeat
begin
readln(a);
if a=b then exit;
readln(b);
end;
until a=b;
end.

42

 

program AVTORUEBOK;
var a,b:integer;
begin 
repeat
begin
readln(a);
if a=b then exit;
readln(b);
end;
until a=b;
end.

где счетчик чисел?

program AVTORUEBOK;
var a,b,c:integer;
begin
c:=0; 
repeat
begin
readln(a);
c:=c+1;
if a=b then exit;
readln(b);
c:=c+1;
end;
until a=b;
writeln(c);
end.

 

program AVTORUEBOK;
var a,b,c:integer;
begin
c:=0; 
repeat
begin
readln(a);
c:=c+1;
if a=b then exit;
readln(b);
c:=c+1;
end;
until a=b;
writeln(c);
end.

а ну да Паскаль ебашит

на вижуал бейсике еще программируют 

 

program AVTORUEBOK;
var a,b,c:integer;
begin
c:=0; 
repeat
begin
readln(a);
c:=c+1;
if a=b then exit;
readln(b);
c:=c+1;
end;
until a=b;
writeln(c);
end.

спасибо за старания, но у меня что-то не работает

на вижуал бейсике еще программируют 

VB.NET . как C# , только вб. =)

Ну и работал с недавно с людьми, все еще на вб программируют. Приходилось через COM подрубаться 

ты павскаль чтоль написал?

 

program AVTORUEBOK;
var a,b,c:integer;
begin
c:=0; 
repeat
begin
readln(a);
c:=c+1;
if a=b then exit;
readln(b);
c:=c+1;
end;
until a=b;
writeln(c);
end.

спасибо за старания, но у меня что-то не работает

мне кажется или это код паскаля

mogoo cpp napisat' soidet?