64 Кбайта = 64*1024 байт = 64*1024*8 бит
Время передачи файла = 64*1024*8 / 1024 = 64*8 с
Размер файла, <span>который можно передать за то же время через другое соединение со скоростью 256 бит в секунду:
256*64*8 бит = 256*64*8 / 8 байт = 256*64 байт = 256*64 / 1024 Кбайт = 16 Кбайт</span>
program MassaProg;
uses crt;
var factmassa, heigth: integer;
var massa: real;
begin
writeln('Vvedite rost v santimetrah: ');
readln(heigth);
writeln('Vvedite ves: ');
readln(factmassa);
massa:=heigth-100-0.1*(170-100);
if massa = factmassa
then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');
end.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
используй File Viwer Plus или Notepad++, очень крутые проги, сам использую
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится