Вмассив а[10] занесены натуральные числа. найти сумму тех элементов, которые кратны 2. pascal

126

404

Посмотреть ответы 2

Ответы на вопрос:

mariyayakovleva1

Информатика

4,6(59 оценок)

Const n = 10; var a: array [1..n] of integer; i, k: integer; begin for i : = 1 to n do readln(a[i]); k: =0; for i: =1 to n do if a[i] div 2=0 then k: =k+a[i]; writeln(k); end. может быть неправильно написана программа, с андроида неудобно

vimeworldru

Информатика

4,5(79 оценок)

Проблема в описании переменной s. функция sqrt дает вещественный результат, поэтому тип s должен быть вещественный (и для p лучше вещественный): var a,b,c: integer; p, s: real; begin readln(a,b,c); p: = (a+b+c)/2; s: = sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); end.