[ivank]

kirillsp
Лабы сдавать пора, да? Почитайте книжку, говорят помогает.

Пора, как мне кажется, запретить просьбы "помочь написать программу", без указания конкретной проблемы. Ибо сводятся все они к "напишите за меня пожалуйста программу, очень надо."

[hellrised]

тут же примитив:
1)writeln [введите...]
readln(x)
if x=1703 then writeln...вы правы..
else writeln...ты не прав.
2) здесь не сложнее
цикл по х[i] если х[i]>0 and x[i]/2 без остатка,then s+x[i];
i:=i+1;
n:=n+1;

коряво,но суть такова, а для большей точности и правильного синтаксиса

Почитайте книжку, говорят помогает

что и ко мне относится

[Diseased Head]

Ибо сводятся все они к "напишите за меня пожалуйста программу, очень надо.

Согласен с тобой ivank. Мне это тоже не нравится. Непонятно: для чего люди учаться и как дальше думают здавать.
Но с другой стороны, ситуации бывают разные. И может действительно нужно.

[kirillsp]

Но с другой стороны, ситуации бывают разные. И может действительно нужно.

В том то и дело, по очень уважительной причине не мог присутсвовать на лекциях, а здавать работы уже надо. Ведь для кого-то это не состовляет ни какой сложности.

[Diseased Head]

Зла на вас не хватает. По ОЧЕНЬ уважительной причине... Да ладно гнать-то: небось по пиву, да по бабам или в Unreal Tournament задулся. Даже помогать не хочется таким. Ну ладно. Помогаю в первый и последний раз:

Код:

program PITER;

Var
year: integer;

Begin
writeln('В каком году основан Санкт-Петербург?');
writeln;
writeln('Введите число и нажмите ENTER:');
readln(year);
if year = 1703 then writeln('Вы правы, Санкт-Петербург был основан в 1703 году.')
else writeln('Вы ошиблись, Санкт-Петербург был основан в 1703 году.');
readln;
End.

И вторая программа:

Код:

program SUMMA;

Var
a: array [1..100] of integer;
sum, k, i: integer;

Begin
randomize;
for i := 1 to 100 do a[i] := random(101) - 50;
writeln('Вычисление суммы четных положительных чисел.');
writeln;
writeln('Введите количество суммируемых чисел и нажмите ENTER:');
readln(k);
sum:=0;
for i:=1 to k do
 begin
  if (a[i] >= 0) and (a[i] mod 2 = 0) then sum := sum + a[i]
 end;
writeln('Сумма первых ',k,' положительных, чётных чисел равна ',sum);
readln;
End.

Я учу C/C++ (Pascal совсем забыл да и не знал особо), но тем не менее написал эти проги. И тебе советую научится это делать. Потом будет тяжелее. Это-ж простецкие примеры.

[ivank]

Diseased Head
Второй пример неверный. В смысле неверная интерпретация задания. Нужно просуммировать первые k положительных чисел (2, 4, 8, ..., k). Т.е. 2 + 4 + 8 + 10 + ... + 24 = 156, если глянуть на тестовый пример. Можно считать сумму в цикле (на что вероятно задание), а можно вспомнить восьмой класс и формулу для вычисления суммы k членов арифметической прогрессии. В данном случае ответ - k*(k+1) (и всё).

[Diseased Head]

ivank
Аааа.... То-то, я думал, чёта он сложнее первого.

[kirillsp]

Diseased Head, спасибо тебе, действительно выручил

Кстати, зря ты так думаешь... На самом деле было всё намного серъёзнее, хотя "баб и пиво" забывать не надо

[hellrised]

kirillsp
кликни Diseased Head полезное сообщение!!!!!!