Объяснение:
Ошибки в программе:
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;
Но от нас требуют блок схему (хотя тоже непонятно зачем).
Но требую и требуют:
(см. прикрепленный файл)
Задание выполнено!
