257(8)=2*8^2+5*8^1+7*8^0=128+45+7=178
какой язык то???? на тебе паскаль...
var
in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');
reset(in1);
assign(out1,'out.txt');
rewrite(out1);
for i:=1 to 4 do
begin
for j:=1 to 6 do
read(mas[i,j]);
readln;
end;
close(in);
close(out);
end.
капец здесь отступы нельзя делать... фиг поймешь...
16 =
i = 4 (кол-во бит на одну букву)
4 * 5 = 20 бит (объем информации одного слова)
20 * 8000 = 160000 бит / 8 = 20000 байт
Ответ :
20000 байт
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=a+b+c;
var k:=Trunc(sqrt(s));
if k*k=s then Writeln('Сумма чисел - квадрат ',k)
else Writeln('Сумма чисел не является квадратом целого')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=power(a*b*c,1/3);
if s=int(s) then Writeln('Среднее геометрическое - целое число')
else Writeln('Среднее геометрическое - нецелое число')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число
Program a_1;
var xa,ya,y,l,x,k:real;
begin
writeln('введите координаты точки А');
read(xa,ya);
writeln('введите значение коэффициента k и l ');
read(k,l);
if ya=k*xa+l then
begin
writeln('Точка А принадлежит прямой');
end
else
if ya>k*xa+l then
begin
writeln('Находится выше прямой');
end
else
if ya<k*xa+l then
begin
writeln('Находится ниже прямой');
end
<span>end. </span>
