Ответ:
program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.
Например есть: сканер, видеокарта.
#include <iostream>
using namespace std;
int main() {
int a, b, min;
cin >> a;
cin >> min;
for (int c = 1; c < a; c++) {
cin >> b;
if (min > b && b % 2 == 0) {
min = b;
}
}
cout << min << endl;
return 0;
}
Каждый символ 256-буквеннного алфавита можно закодировать минимум 8-ю битами, т.к. 2^8 = 256
Значит 54 символа занимают 8*54 = 432 бита = 54 байта
Pascal ( //комментарии к программе, т.е. пояснение строки)
Var a,b,c,d:integer;
begin
Write('Введите трехзначное число'); read(a);
b:=a div 100; // число сотен
c:=a mod 100 div 10; // число десятков
d:=a mod 10; // число единиц
s:=b+c+d; // складываем цифры
Write('Сумма цифр трехзначного числа равна: ',s);
end.