Во Что определяет для массива X[1..n , 1..m] следующий алгоритм S := 0; For i := 1 to n do For j := 1 to m do If X[i, j ] <0 then S := S + X[i, j]; A) минимальный элемент массива B) сумму отрицательных элементов массива C) максимальный элемент массива D) количество отрицательных элементов массива Во Что определяет для массива X[1..n , 1..m] следующий алгоритм For i := 1 to n do For j := 1 to m do If i mod 2 = 0 then X[i, j] := A; A) четные столбцы матрицы заменить на А B) четные строки матрицы заменить на А C) количество четных элементов массива D) нечетные строки матрицы заменить на А Во Что определяет для массива X[1..n , 1..m] следующий алгоритм V := 0; For i := 1 to n do For j := 1 to m do If X[i, j] = T then V := V + 1; A) сумма элементов каждой строки матриц X и Y B) количество элементов матрицы, равных Т C) количество равных элементов матрицы X D) количество элементов матрицы X не равных Т Во Что выполняет данный фрагмент программы: for i:=1 to 5 do begin for j:=1 to 10 do write ( a [ i , j ]:4); writeln ; end ; A) ввод элементов, стоящих в i -й строке матрицы, в одной экранной строке с клавиатуры, при этом вводится по 4 элемента в одной строке B) ввод элементов, стоящих в j -ом столбце матрицы, с клавиатуры, по 4 элемента C) печать элементов, стоящих в i -й строке матрицы в столбец, при этом для вывода каждого элемента отводится 4 позиции D) печать элементов, стоящих в i -й строке матрицы в одной экранной строке, при этом для вывода каждого элемента отводится 4 позиции Во Дан двумерный массив a размером 5*5 41 87 37 12 45 74 42 78 38 43 48 12 11 79 96 78 34 72 91 12 79 25 13 18 89 Чему равен элемент a[4, 3] A) 72 B) 79 C) 34 D) 43 Во Дан двумерный массив a размером 5*5 41 87 37 12 45 74 42 78 58 43 48 72 46 49 56 70 34 72 91 12 79 25 73 18 89 Что будет записано в переменную f f:=a[4, 1]; For k:=2 to 5 do if a[4, k]>f then f:=a[4, k];
Ответы
Решение, что называется, "в лоб" (далеко, очень далеко, не самое лучшее):
var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer;
begin
write('s = '); readln(s);
k1:=0; k5:=0; k10:=0; k50:=0;
k100:=0; k500:=0; k1000:=0; k10000:=0;
while s>=10000 do begin s:=s-10000; k10000:=k10000+1; end;
while s>=1000 do begin s:=s-1000; k1000:=k1000+1; end;
while s>=500 do begin s:=s-500; k500:=k500+1; end;
while s>=100 do begin s:=s-100; k100:=k100+1; end;
while s>=50 do begin s:=s-50; k50:=k50+1; end;
while s>=10 do begin s:=s-10; k10:=k10+1; end;
while s>=5 do begin s:=s-5; k5:=k5+1; end;
while s>=1 do begin s:=s-1; k1:=k1+1; end;
writeln('k10000=',k10000,' k1000=',k1000,' k500=',k500,' k100=',k100,' k50=',k50,' k10=',k10,' k5=',k5,' k1=',k1);
writeln(' Всего купюр = ',k1+k5+k10+k50+k100+k500+k1000+k10000);
end.
Пример:
s = 27879
k10000=2 k1000=7 k500=1 k100=3 k50=1 k10=2 k5=1 k1=4
Всего купюр = 21
var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer;
begin
write('s = '); readln(s);
k1:=0; k5:=0; k10:=0; k50:=0;
k100:=0; k500:=0; k1000:=0; k10000:=0;
while s>=10000 do begin s:=s-10000; k10000:=k10000+1; end;
while s>=1000 do begin s:=s-1000; k1000:=k1000+1; end;
while s>=500 do begin s:=s-500; k500:=k500+1; end;
while s>=100 do begin s:=s-100; k100:=k100+1; end;
while s>=50 do begin s:=s-50; k50:=k50+1; end;
while s>=10 do begin s:=s-10; k10:=k10+1; end;
while s>=5 do begin s:=s-5; k5:=k5+1; end;
while s>=1 do begin s:=s-1; k1:=k1+1; end;
writeln('k10000=',k10000,' k1000=',k1000,' k500=',k500,' k100=',k100,' k50=',k50,' k10=',k10,' k5=',k5,' k1=',k1);
writeln(' Всего купюр = ',k1+k5+k10+k50+k100+k500+k1000+k10000);
end.
Пример:
s = 27879
k10000=2 k1000=7 k500=1 k100=3 k50=1 k10=2 k5=1 k1=4
Всего купюр = 21
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выбрать наименьшее(информатика)
Автор: zaschitin48
Расшифровать слова анклан, игатар, етеливроз
Автор: antoska391
Информатика сделать этот тест мне осталось всего пол часа
Автор: Arzieva Abdulmanov1438
Синформатикой. ! нужно определить значение переменной s
Автор: DzukaevAlekseevich
Запишите дополнительный кот числа - 83
Автор: skalegin68
На рисунке представлены компоненты компьютерной сети. Напиши их названия и их назначение.
Автор: ssitnickowa201244
У яких режимах можна відкрити запит у БД?
Автор: steam22-9940
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4