andrew409
?>

Запустите Паскаль и введи программу var a, b, c:integer; begin a:=−30; b:=abs(a); writeln('abs(−30)=', b); c:=sqr(b); writeln('sqr(b)=', c); c:=sqr(b+b); writeln('sqr(b+b)=', c); end. При запуске программы вывод на экран: abs(−30)= 30 sqr(b)= sqr(b+b)=

Информатика

Ответы

cleopatra1959

Программа полностью рабочая, ошибка была в том что минус был не минусом.

Объяснение:


Запустите Паскаль и введи программу var a,b,c:integer; begin a:=−30; b:=abs(a); writeln('abs(−30)=',
Раисовна878
1:

#include <iostream>
using namespace std;

int main() {
const int n = 4;
int nums[4], max[2], min[2], mmax, mmin, nmax, nmin;

cout << "Введите числа:" << '\n';
for (int i = 0;i <= n; i++) {
cin >> nums[i];
}

if (nums[0] > nums[1]) {
max[0] = nums[0];
min[0] = nums[1];
}
else {
max[0] = nums[1];
min[0] = nums[0];
}

if (nums[2] > nums[3]) {
max[1] = nums[2];
min[1] = nums[3];
}
else {
max[1] = nums[3];
min[1] = nums[2];
}

mmax = (max[1] > max[0] ? max[1] : max[0]);
nmax = (max[1] > max[0] ? max[0] : max[1]);
mmin = (min[0] < min[1] ? min[0] : min[1]);
nmin = (min[0] < min[1] ? min[1] : min[0]);

cout << mmax << '\n' << nmax << '\n' << mmin << '\n' << nmin << '\n';

}

2:

#include <iostream>
using namespace std;

int main() {
int a, b, c, otvet;
cin >> a;
cin >> b;
c = a * b;
otvet = c / a;
if (otvet == b) {
cout << "Операция произошла успешно!" << '\n';
}
}
eoils-info
С 1 и 3 вопросом больших проблем нет: в Юникод на 1 символ отводится 16 бит (2 байта), поэтому, если посчитать, что служебная информация  в файле отсутствует, текст занимает в 2 раза больше байт, чем в нем символов.
1) ответ d - 288 байт
3) ответ  b - 360000 символов

а вот со 2 проблемы. ASCII, или КОИ-7 - на 1 символ отводилось 7 бит. При этом национальные кодировки (в частности, русская) были возможны только вместо строчных латинских букв. Да и то, только прописные буквы.
Расширенный ASCII, или КОИ-8 - 8-битное кодирование.
В пословице, если написать ее правильно, 26 символов. Так что, ни один из ответов не подходит. Или условие неверно переписано, или это умышленный вопрос без ответа. Где-то так...
Или я безнадежно туплю, но сомневаюсь, что это так))

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запустите Паскаль и введи программу var a, b, c:integer; begin a:=−30; b:=abs(a); writeln('abs(−30)=', b); c:=sqr(b); writeln('sqr(b)=', c); c:=sqr(b+b); writeln('sqr(b+b)=', c); end. При запуске программы вывод на экран: abs(−30)= 30 sqr(b)= sqr(b+b)=
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

snabdonm501
abdulhakovalily22
Бабур
krasa28vostok65
mihalevskayat
sunrise
Immortal3331
Deniskotvitsky6422
katrin819
maksmi
baranovaas
Zakharov Lilit
Sergeevna803
a580028r
safin8813