Огэ по Информатике 7 задание.

Объяснение:

Ошибки в программе:

Program primer - не хватает точки с запятой

Var a,b: integer;

Begin ; - не ошибка, необязательная точка с запятой

ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

s=a+b; - не хватает двоеточия в :=

m:=a*b;

d:=a:b; - переменная d не была описана; деление - это /

WriteLn(s);

WriteLn(m);

WriteLn(d)

End - не хватает точки.

Исправленная программа:

Program primer;

Var a, b: integer;

 d: real;

Begin

 ReadLn(a, b);

 s := a + b;

 m := a * b;

 d := a / b;

 WriteLn(s);

 WriteLn(m);

 WriteLn(d)

End.

(см. объяснение)

Объяснение:

Предисловие:

Вообще говоря, верно равенство:

Поэтому предложенное вами задание неуместно, ибо считается в уме.

Непонятно так же, какое решение от Вас ждет преподаватель.

Я предполагаю, что учитель требует лобовое неоптимальное медленное решение, поскольку в противном случае задача теряет смысл. В самом деле, что писать блок схему вот этого:

##

(100*101*201/6).Print;

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

То есть код такой (новый и ныне единственно предпочтительный синтаксис, присутствующий в PascalABC.NET):

##

var sum:= 0;

for var i:= 1 to 100 do

 sum+= i*i;

sum.Print;

Но от нас требуют блок схему (хотя тоже непонятно зачем).

Но требую и требуют:

(см. прикрепленный файл)

Задание выполнено!