Я написал программку в Pascal ABC Net:vara,x,n,y: integer;i,s,sum,b: real;begin n :=

Я написал программу в Pascal ABC Net:



var
a,x,n,y: integer;
i,s,sum,b: real;
begin
n := 7;
sum := 0.0;
for y := 1 to n do
begin
write(y, '-е число = ');readln(b);
sum := sum + b
end;
a:=sum;
readln( a ); x:=a;
s:=0;
while ( xlt;gt;0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
case round(a/s) of
1,5,7,9,11,13,15: writeln('Выпадет: Красноватое');
2,4,6,8,10,12,14,16: writeln('Выпадет: Чёрное');
3: writeln('Выпадет: Зелёное');
else writeln('Выпадет: Неизвестный цвет');
end;
readln;
end.



ПРИ ПОПЫТКЕ ЗАПУСТИТЬ ЕЁ, ПИШЕТ: Program1.pas(12) : Нельзя конвертировать тип real к integer.
Как мне это исправить, чтоб прога нормально работала? Бранится на строку a:=sum;

Сущность программки такова, что необходимо человеку поначалу ввести n чисел, после чего программка должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое вышло в первой сумме, когда человек вводил числа.
Формула: \frac sum_1 sum_2
где sum1= сумму n чисел, которые ввёл человек
sum2=сумму чисел в числе, получившееся в итоге сложения чисел, вводимых человеком.

Потехин Никита 2019-02-19 05:28:50

И тд

Анатолий 2019-02-19 05:34:24

создавайте ещё один вопрос, для вас обьязательно помогут))

Лидия Тукбачева 2019-02-19 05:38:11

интересно что в задании нету ничего сказано, о цветах, в отличии от имплементации в вашем коде, либо я что-то не сообразил?)

Vaska Rozencvet Kirillov 2019-02-19 05:43:20

ой, да у вас там после а=sum а присваивается новое значение, это для чего вообщем ооооой

Агата Окурникова 2019-02-19 05:53:20

Я изменил

Taisija Pajgercheva 2019-02-19 05:59:08

Но итог другим не стал

Игорян Ирошкин 2019-02-19 06:01:31

а к чему тут цвета?

Margarita Kurman 2019-02-19 06:03:09

Необходимо мне

Бажуткин Степан 2019-02-19 06:07:25

в задании о них не сказано