Составление блок-схемы

[npizpak]

Помогите составить блок-схему вычисления среднего арифметического целых чисел из отрезка (-4;15). В программе Turbo Pascal 7.

[IT-man]

составить блок-схему.....В программе Turbo Pascal 7

это будет сложно)

var i,s:integer;
begin
s:=0;
for i:=-4 to 15 do
s:=s+i;
writeln('average=',s/20:4:2);
readln;
end.

[npizpak]

вы не подскажете как ставить одинарную кавычку.
а то выбивает синтаксическую ошибку

[IT-man]

вы не подскажете как ставить одинарную кавычку.
а то выбивает синтаксическую ошибку

'Э' в лат раскладке

[npizpak]

а вы не подскажете где тут у меня ошибка.
условие такое: дано 4-х значное натуральное число. Верно ли, что все 4 цифры различны.
var
a,b,c,d:integer;
begin
write(a,b,c,d);
readln(a);
readln(b);
readln(c);
readln(d);
if a=b then
write (a=b);
if a=c then
write (a=c);
if a=d then
write (a=d);
if b=c then
write (b=c);
if b=d then
write (b=d);
if c=d then
write (c=d);
end.

[9i.]

вы считываете целое число в переменную а
т к число одно четырех значное.
считайте строку и сравните посимвольно

[Naive]

write(a,b,c,d);

Тут вроде надо сперва задать значения переменным, перед тем как их выводить.

write (c=d);

Паскаль разве такое прожует? То есть выдаст [true/false]?

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

[npizpak]

всем спасибо вопрос снят!.

[Вадим Мошев]

Сообщение от Naive

write(a,b,c,d);

write (c=d);

Паскаль разве такое прожует? То есть выдаст [true/false]?

Да, именно.
Это же просто логическое выражение, которое кстати, может быть присвоено переменной логического типа. Например:

var t: boolean;
// и ещё какие-то числовые переменные
begin
//...
t:=(a <=b) AND (k+1 > 0) OR ((x < 0) XOR (z1*z2*z3 <= 0.52))