Дан целочисленный массив из n элементов a(n) в пределах от -20 до 20.найти сумму тех чисел,которые кратны 5 напишите программу на паскале и блок схему! )
var a:array of integer; i,n,s:integer; begin writeln('Размерность массива?'); readln(n); setlength(a,n+1); for i:=1 to n do begin a[i]:=random(20,-20); write(a[i],' '); if a[i] mod 5=0 then s:=s+a[i]; end; writeln; writeln('ответ: ',s); end.
Растровое графическое изображение формируется в процессе сканирования изображений и фотографий с бумаги или фотопленок, а также при использовании цифровых фото и видеокамер. РГИ (растровое графическое изображение) очень чувствительно к масштабированию; формируется из отдельных точек - пикселей.
Векторное же графическое изображение формируется из линий, прямоугольников, треугольников, квадратов и т.д., которые сохраняются в памяти компьютера с математических формул. Используется для сохранения четких контуров изображений; создания рисунков и различных графических объектов.
У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
var
a:array of integer;
i,n,s:integer;
begin
writeln('Размерность массива?');
readln(n);
setlength(a,n+1);
for i:=1 to n do
begin
a[i]:=random(20,-20);
write(a[i],' ');
if a[i] mod 5=0 then s:=s+a[i];
end;
writeln;
writeln('ответ: ',s);
end.