Var i, f:integer;
begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
write(f);
end.
- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Нукак то так ну что то делаать надо поч и нет то а
ну вот и все сказочке конец
Модем за секунду передает 2048 бит или 256 байт. Всего надо передать 4096*1024 байт. На это уйдет 4096*1024/256 = 16384 секунды