Такое изображение займет
57 * 57 = 3249 бита
3249 / 8 = 406,125 байта
Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>
Решение во вложении. все забито через формулы, поэтому если поменять количество почты или вес почты, то результаты автоматически поменяются.
Ну и почему нельзя добавить только картинку, нужно еще писать чегойто...