Если в блокноте ,то 6 бит. В майкрософте ворд - 12,4 кб
Объяснение:
Спасибо
Ответ дал: Гость
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива а: ');
for i: =1 to 10 do
readln(a[i]);
writeln('исходный массив а: ');
for i: =1 to 10 do
write(a[i]);
k: =0;
for i: =1 to 9 do
if a[i]< > a[10] then k: =k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
Ответ дал: Гость
теперь не плагиат
program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.
Популярные вопросы