М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ukrkaravan757
ukrkaravan757
10.02.2021 23:42 •  Информатика

Составить программу и блок схему вывода всех чисел от 1000 до 9999, в которых 1 цифра равна 4 и 2 цифра равна 3.

👇
Ответ:
Почему-то мой ответ удалили. Напишу подробнее.
Если в чмсле первая цифра 4 и вторая цифра 3, то  числа от 4300 до 4399
На паскле программа выглядит так
var i, n: integer
begin
uses crt;
for i:= 0 to 99
begin
n = 4300 + i;
write (n);
end;
writeln;
end.
Блок-схема совсем простая, нарисуй сама.
1) Начало (в овале)
2) i = 0 (в прямоугольнике)
3) n = 4300 + i (в прямоугольнике)
4) Вывод n (в параллелограмме)
5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз.
6) Вывод пустой строки (в параллелограмме)
7) Конец (в овале)
4,7(97 оценок)
Открыть все ответы
Ответ:
наташа934
наташа934
10.02.2021
Для облегчения выкладок разделим эти 64 множителя на шесть групп по 10 двоек в каждой и одну последнюю группу из четырех двоек. Произведение 10 двоек, как легко убедиться, равно 1024, а четырех двоек— 16. Значит, искомый результат равен 1024 X 1024 X 1024 X 1024 X 1024 X 1024 X 16.Перемножив 1024 X 1024, получим 1 048 576.Теперь остается найти 1048 576X1048 576X1048 576X16, отнять от результата единицу — и нам станет известно искомое число зерен: 18 446 744 073 709 551615. Известно, что кубический метр пшеницы вмещает около 15 миллионов зерен. Значит, награда шахматного изобретателя должна была бы занять объем примерно в 12 000 000 000 000 куб. м. Кстати, это геометрическая прогрессия и ее нужно было кидать в раздел "математика".
4,7(73 оценок)
Ответ:
diamond31
diamond31
10.02.2021

var

A: array [1..100, 1..100] of integer;

i, j, n, y, mini, minj, maxi, maxj, temp: integer;

const

format = 4;

begin

Randomize;

writeln('Введите колличество строк и столбцов через пробел (пример: 3 4)');

read(n, y);

writeln('Исходный массив');

for i := 1 to n do

begin

for j := 1 to y do

begin

A[i, j] := random(40) - 20;

write(A[i, j] : format);

end;

writeln;

end;

mini := 1;

minj := 1;

maxi := 1;

maxj := 1;

for i := 1 to n do

for j := 1 to y do

begin

if A[i, j] < A[mini, minj] then

begin

mini := i;

minj := j;

end ;

if A[i, j] > A[maxi, maxj] then

begin

maxi := i;

maxj := j;

end ;

end;

writeln;

WriteLn('Минимальный = ', A[mini, minj], ' в ', mini, ' строке ', minj, ' колоне.');

WriteLn('Максимальный = ', A[maxi, maxj], ' в ', maxi, ' строке ', maxj, ' колоне.');

temp := A[maxi, maxj];

A[maxi, maxj] := A[mini, minj];

A[mini, minj] := temp;

writeln;

writeln('Преобразованный массив');

for i := 1 to n do

begin

for j := 1 to y do

write(A[i, j] : format);

writeln;

end;

readln;

end.


Нужна ваша Сформировать в паскале двумерный массив приоизвольного размера (размер массива вводить с
4,4(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ