shaldinaalbina
10.11.2020 19:10

Задание 1. Перейдите на сайт онлайн-компилятор на языке Паскаль https://ideone.com/pvrq7o. Изучите его интерфейс.

Задание 2. Наберите код программы для сложения двух чисел( см. ниже. В {} – это комментарии, поясняющие, что происходит в той или записи, их записывать не надо. Только сам код) и запустите на выполнение.
Program Summa;

Var
number1,
number2,
rezult
:integer; {указывает тип целых чисел}
Begin

Writeln ('Введите первое число ');
{Выводим на экран символы, записанные между апострофами}
Readln (number1);
{Введенное пользователем число считываем в переменную number1}
Writeln ('Введите второе число ');
{Выводим на экран символы, записанные между апострофами}
Readln (number2);
{Введенное пользователем число считываем в переменную number2}
rezult := number1 + number2;
{Находим сумму введенных чисел и присваиваем переменной rezult}
Writeln ('Сумма чисел ', number1, ' и ', number2, ' равно ', rezult);
{Выводим на экран строчку, содержащую ответ задачи}
Readln;{Процедура задержки экрана}
End.
Найдите в этой программе заголовок, раздел описания переменных, признак начала программы, признак конца программы, тело программы, комментарий. ответьте на во Какое назначение переменных number1, number2, rezult?
2. Что обозначает строка: number1, number2, rezult : integer; ?
3. Если присвоить переменным number1 и number2 соответственно значение 5 и 7, то какую строчку выдаст компьютер при исполнении последней процедуры Write? Запишите ее в отчет.
4. Переведите с английского языка слова: Write, Read. Как вы думаете, что должен делать операторы с таким названием?
5. Как вы понимаете запись: readln(number1); ?
6. Чему равно значение переменной rezult после выполнения оператора: rezult := number1 + number2; ?
7. Что делает оператор присваивания в этой программе?

Задание 3. Измените программу, выполненную в задании 2 так, чтобы она находила произведение двух чисел. Проверьте работу программы с онлайн-компилятора по ссылке выше. Запишите в качестве ответа часть кода, в которую вы внесли изменения очень

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Bananchik26
11.05.2023 22:17
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // начало расчетов
  var s:=0;
  for var i:=0 to n-1 do s+=a[i,n-i-1];
  Writeln('1: S=',s);
  Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
  Write('3: Произведение элементов: ');
  a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
  var p:BigInteger:=1;
  for var i:=0 to n-1 do p*=a[i,i];
  Writeln('4: П=',p);
end.

Необходимо решение по икт pasckal 10 ! используя только знания 10 класса. 1) найти сумму элементов п
0,0(0 оценок)
Ответ:
fariii046
25.03.2021 09:45
1) Определяем общее количество бит: 16 х 640 х 480 = 4 915 200
С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим
4 915 200 / 8 / 1024 = 600 (КБ)

2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит).
После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем
1400 х 900 х 256 = 10 080 000 (бит).
Разница в объемах составит  46 080 000 -  10 080 000 = 36 000 000 бит.
С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на
36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота