Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.
Var input:integer;
begin
write('Enter number - ');
readln(input);
case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;
end.
64 = 2^6, поэтому на 1 символ отводится 6 бит.
Всего символов на странице 40 * 60, на трёх страницах — 3 * 40 * 60, объем информации в битах равен 6 * 3 * 40 * 60.
В одном байте 8 бит, значит, количество информации 6 * 3 * 5 * 60 байт = 5400 байт.
Ответ. 5400 байт
Var a,b:integer;
begin
read(a,b);
if (a*b) mod 5 = 0 then writeln('делится') else writeln('не делится');
end.
var a: array [1..10] of integer; c,sum: integer;beginsum:=0; writeln('введите элементы массива '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c];writeln('сумма равна =',sum);end.