Кто знает Pascal,быстрые деньги для вас.

[fast1k]

Вообщем нет времени расписывать зачем мне это и для чего!
Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит!
Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.

 

[adventurer]

По моему тут нужно через циклы , если в паскале он есть.

 

[IrishkaInc]

Вообщем нет времени расписывать зачем мне это и для чего!
Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит!
Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.
Посмотреть вложение 84024

 

[IrishkaInc]

Вообщем нет времени расписывать зачем мне это и для чего!
Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит!
Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.
Посмотреть вложение 84024

 

[IrishkaInc]

Вообщем нет времени расписывать зачем мне это и для чего!
Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит!
Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.
Посмотреть вложение 84024

 

[Soratik]

Где вообще сейчас учат паскалю? Даже в моем засраном колледже уже отказались и пайтон на втором курсе изучают. Жаль, что я родился раньше и ещё застал паскаль? Постоянно ебешься там с этими бегинами эндами

 

[adventurer]

Где вообще сейчас учат паскалю? Даже в моем засраном колледже уже отказались и пайтон на втором курсе изучают. Жаль, что я родился раньше и ещё застал паскаль? Постоянно ебешься там с этими бегинами эндами

Жиза:)

 

[Ivan_RealTok]

Где вообще сейчас учат паскалю? Даже в моем засраном колледже уже отказались и пайтон на втором курсе изучают. Жаль, что я родился раньше и ещё застал паскаль? Постоянно ебешься там с этими бегинами эндами

во всех школах

 

[Ivan_RealTok]

Где вообще сейчас учат паскалю? Даже в моем засраном колледже уже отказались и пайтон на втором курсе изучают. Жаль, что я родился раньше и ещё застал паскаль? Постоянно ебешься там с этими бегинами эндами

паскаль - это та еще ОПГ, ее боялись даже сишарпы

 

[IrishkaInc]

Вообщем нет времени расписывать зачем мне это и для чего!
Кто знает Pascal вот задачки,очень легкие,если найдутся такие кто решит,отблагодарю денежкой! Миллионы не обещаю но на пару бутылок пива и три дошика хватит!
Ответ нужен с полным решением,чтобы запустить в Pascal и все просчитывал.
Посмотреть вложение 84024

ТС, если что - пиши в Telegram.

 

[fast1k]

ТС, если что - пиши в Telegram.

Тема закрыта! Спасибо за помощь!

 

[Fake2020]

Первое задание:

program Hello;


var
  a: array[0..10] of integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  i: integer;

begin

  writeln ('All elements:');
  for i:=1 to 9 do
     write(a[i],' ');
    
    
  writeln ('Find 347 element:');
 
  for i:=1 to 9 do
    if (a[i] = 7) then
      begin
       writeln('Found and change value elem 7');
       a[i-1]:=999;
      end;
      
  writeln ('New elements:');
    for i:=1 to 9 do
      write(a[i],' ');

end.